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