Select Code to Download

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

chomp( @array = <MSG> );

use strict;
use warnings;

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