my @foo;
foreach my $line (<MVMT>)
{
   push( @foo, $line );
}
my $file = join('', @foo);