Select Code to Download

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

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