for (my $i=0;$i<=$#lines;$i++){
  if(exists $artists{$lines[$i]})