#       foreach my $key (sort keys %file1){
#                 foreach my $position1 (@{$file1{$key}}){
#            if ($current_line[0] eq $key) {

       if (exists $file1{current_line[0]} ) {
           $key= $current_line[0];
           foreach my $position1 (@{$file1{$key}}){