#!/usr/bin/perl -w
print "  Int   Square\n===== ========\n";
# Version using a list
foreach (0..32)
{
   printf "%5g %8g\n", $_, $_**2
}