use Sort::Key 'ikeysort';

sub sort_key {
    my $c = 0;
    my @s = ikeysort { $c += 1; /(\d+)/; $1 } @l;
    push @{$regexes{key}}, $c;
}