@a = qw[  ased12 frtg Frth zdcs 123 12h awq ];;

print for map { 
    $_->[0] 
} sort{ 
    $a->[1] cmp $b->[1] 
} map{ 
    (my $t = $_) =~ tr[aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0-9]
                      [\x00-\x3e]; 
    [ $_, $t ] 
} @a;;

ased12
awq
frtg
Frth
zdcs
12h
123

##</code><code>##

@a = qw[  ased12 frtg Frth zdcs 123 12h awq ];
print for map{
    tr[\x00-\x3e][aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0-9];
    $_;
} sort map{
    tr[aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0-9][\x00-\x3e];
    $_;
} @a;

ased12
awq
frtg
Frth
zdcs
12h
123