You can also save some typing where you build your @array from the MSG file handle. Your

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

could be written

chomp( @array = <MSG> );
[download]

It is good practice to put

use strict;
use warnings;
[download]

at the top of your scripts to enforce a little coding discipline and catch typos. It is also good practice to use lexical file handles, the three-argument form of open and to check that it succeeded (you do this), but also give the o/s error (see $! in perlvar) to give a better idea of why it failed.

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

I hope these points are helpful.