open(FILE1, $ARGV[0]) || die "Error: $!\n";
@lines = <FILE1>;

##</code><code>##

@lines = $_;

##</code><code>##

$foo = $_;

##</code><code>##

$foo .= $_;

##</code><code>##

$foo = $foo . $_;

##</code><code>##

push @lines, $_;