for my $nombre (keys %cuantas_veces_sale) 

##</code><code>##

for my $nombre (sort {$a<=>$b} keys %cuantas_veces_sale) 

##</code><code>##

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