@sorted = map {$_->[2]} 
           sort {$a->[0] cmp $b->[0] || $a->[1] <=> $b->[1]} 
            map {/(\D+)(\d+)/;[$1,$2,$_]} @unsorted;