@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