my $i=0;
my %M;
while (my $val = $q->param("M$i") ) {
  $M{$i} = $val;
  $i++;
}