>>44
どーしても突っ込みたくなった。
my $val_2=<$in2>;
file2は先頭行しか見ないのか？