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

##</code><code>##

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