my @headings = map { "Head$_" } (1..5);
my @names    = qw(
   one two three
   un deux trois
   eins zwei drei
   uno dos tres
   een twee drie
);