Select Code to Download

sub alfNum {
    my ($aAlf, $aNum) = $a =~ /([a-z]+)(\d+)/i;
...
    return $aAlf cmp $bAlf if $aAlf ne $bAlf;
    return $aNum <=> $bNum;
}

use strict;
use warnings;
...
    return $aAlf cmp $bAlf if $aAlf ne $bAlf;
    return $aNum <=> $bNum;
}

A2                  A10                 A21                 
cc=>5               bl=>0               cd=>5               
...
oo=>5               ec=>3               ee=>3               
pp=>4               oa=>0               og=>0               
zz=>9               wd=>4               wo=>4