change
 my $M4;
to
 my %M4;
Individual hash elements are accessed/set like so  $M4{foo} = 'bar'; but Hashes are declared like  my %M4 = (foo => 'bar', me => 'you' );