printf 右对齐打印

my @items = qw / wilma dino pebbles /;
printf "The items are: \n".("%10s\n" x @items), @items;

########################################################
C:\Perl\learn>printf.pl
The items are:
     wilma
      dino
   pebbles