for my $nombre (sort {$a cmp $b } keys %cuantas_veces_sale)