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";}