Select Code to Download

my @headings = map { "Head$_" } (1..5);
my @names    = qw(
...
   uno dos tres
   een twee drie
);

Head1onetwothreeHead2undeuxtroisHead3einszweidrei ...

use strict; # please

...
# vertical
printf("%10s %10s %10s\n",@headings);
printf("%10s %10s %10s\n",@$_) for @names;