open( FILE1, "file1.txt" ) or die "Unable to open file1.txt\n$!\n";
open( FILE2, "file2.txt" ) or die "Unable to open file2.txt\n$!\n";

my %hash;

@hash{ map{ chomp; $_ } <FILE1> } = 
  map { chomp; $_; } <FILE2>