my %file1;
my $linenumber= 0;
foreach (<FILE1>) {
  $file1{$_}= $linenumber++;
}