Массивы и функция printf

use strict;
my @items = qw( Wilma mario dino pebbles );
my $format = "The items are:\n" . ("%10s\n" x @items);
#print "The format is <<$format>>\n"; # for debug
printf $format, @items;

Вывод:
The items are:
Wilma
mario
dino
pebbles