#!/usr/bin/perl
foreach $number (0..32) {
    $square = $number * $number;
    printf "%5g %8g\n", $number, $square;
}