print $_, "\n", $hash1{$list{$1}}, "\n";