Examples 13-14

#Learning Perl Appendix A, Exercise 4.5 (without list)

for ($number = 0; $number <= 32; $number++) {

$square = $number * $number;

printf "%5g %8g\n", $number, $square;

}

#Learning Perl Appendix A, Exercise 4.5 alternate (with list)

foreach $number (0..32) {

$square = $number * $number;

printf "%5g %8g\n", $number, $square;

}