my @numero = (1..100);
my %lista = map{$_,$_*2} @numero;
while (($num, $doble)= each(%lista)) { print "$num .... $doble\n";}