my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map {
    [ $_, s/^CORE//r =~ s/(\d+)/sprintf "%06d", $1/ger ] } @aa;