use strict; use warnings; my $file1 = <; close IN; chomp @lines; print "@lines1\n";