my @sorted = map {
    $_->[2]
} sort {
    $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1]
} map {
    my ($chr, $num) =~ m/^([a-z]+)(\d+)/; [$chr, $num, $_]
} @array;