my @file1;
my @file2;

chomp, push @file1, $_ while <IN1>;
chomp, push @file2, $_ while <IN2>;

##############

chomp(my @file1 = <IN1>);
chomp(my @file2 = <IN2>);