Select Code to Download

my @sorted =
    map $_->[0],
...
        }
    }
    map [ $_, [ split /(\d+)/ ] ], @unsorted;

qw(
    bigbang
...
    bigBoy
    x11y
)

qw(
    bigbang
...
    x10y
    x11y
)