use strict;

my %planets;
my %cuantas_veces_sale;

for my $nombre (sort keysort keys %cuantas_veces_sale) {
    print "$nombre\n";
};

sub keysort {
    return $planets{$a} <=> $planets{$b} if $planets{$a} <=> $planets{$b};
    
    my ($num_a) = $a =~ /(\d+)/;
    my ($num_b) = $b =~ /(\d+)/;
    $num_a <=> $num_b;
}

##</code><code>##

use strict;

my %planets;
my %cuantas_veces_sale;

my %alphas = map {$_ => /(\D+)/} keys %cuantas_veces_sale;
my %numerics = map {$_ => /(\d+)/} keys %cuantas_veces_sale;

for my $nombre (sort {   $planets{$a}  <=> $planets{$b}
                      or $alphas{$a}   cmp $alphas{$b}
                      or $numerics{$a} cmp $numerics{$b} } keys %cuantas_veces_sale) {
    print "$nombre\n";
};