# ex_04-5a
# Learning Perl on Win32 Systems, Exercise 4.5a

for ($number = 0; $number <= 32; $number++) {
  $square = $number * $number;
  printf "%5g %8g\n", $number, $square;
}