use File::Slurp;

my %h;
@h{map{chomp;$_}read_file("test1.txt")}=(map{chomp;$_}read_file("test2
+.txt"));
[download]