#!/usr/bin/perl -w
use strict;

my @stuff = qw( large    90.12
                small  12.34
               medium     57.78
               super    75.0
              );             

print 
"#     Name    Price\n",
"#     ----    -----\n";
while (my ($name,$price) = splice (@stuff,0,2))
{
  printf "%10s %8.2f\n", $name, $price;
}

__END__ 
Prints:
#     Name    Price
#     ----    -----
     large    90.12
     small    12.34
    medium    57.78
     super    75.00