Select Code to Download

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

my @palabras = qw ( arriba abajo contigo compaņero cariņo superfluo vi
+da);
my %cosa = map {$_, $_=~s/a/X/g} @palabras;
while (($uno, $dos)=each(%cosa)){print "$uno...$dos\n";}