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

##</code><code>##

SELECT MR_M FROM MR2 ORDER BY RIGHT(MR_M,LENGTH(MR_M)-1);