Hi tphyahoo, There is an extra empty ligne in output :) So maybe:

for my $y (0..$max_y-1) {
...
}
[download]

Thank you !