my $area = 0; for my $h (1..$height) { $area = $area + $width; } #### my $area = $height * $width;