my $sth21= $dbh->prepare(qq{SELECT MR_M FROM MR2 ORDER BY MR_M});