for my $y ( 0 ..  $height - 1 ){
    for my $x ( 0 .. $width - 1 ){