# 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;

}