Select Code to Download

use strict;

...
    my ($num_b) = $b =~ /(\d+)/;
    $num_a <=> $num_b;
}

use strict;

...
                      or $numerics{$a} cmp $numerics{$b} } keys %cuant
+as_veces_sale) {
    print "$nombre\n";
};