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";
};