Select Code to Download

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

bobf sort: a1 a10 a100 a11 b10 b2 b200 b25
  GF sort: a1 a10 a11 a100 b2 b10 b25 b200