foreach $line (<MSG>) {
   chomp($line);
   push(@array, $line);

##</code><code>##

chomp( @array = <MSG> );

##</code><code>##

use strict;
use warnings;

##</code><code>##

open my $msgFH, q{<}, q{/some/file}
   or die qq{open: < /some/file: $!\n};