#ex_04-5a
#Learning Perl Appendix A, Exercise 4.5 (without list)
for ($number = 0; $number <= 32; $number++) {
    $square = $number * $number;
    printf "%5g %8g\n", $number, $square;
}