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