sub natural_sort {
    return @_ if @_ < 2;
    my $index = 0;
    return @_[@_».lc».subst(/(\d+)/, -> $/{ sprintf( "%s%c%s", 0, $0.chars, $0) }, :g).map( *~' '~$index++ ).sort.map({@(split(' ',$^_))[*-1]})];
}