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