my @file_lines = <>;

##</code><code>##

while ( my $line = <> ) {
   print "The line is: $line";
   push @file_lines, $line;
}