use strict;

open (FH, 'foo.txt');
my @lines = <FH>;
my @lines1;
close FH;
foreach  (@lines) {
  chomp;
  push my @lines1, $_; 
}
print "@lines1\n";