for my $y (0..(@in-1)) {
    for my $x (0..(@{$in[$y]}-1)) {

##</code><code>##

for my $y ( 0 .. $#in ) {
    for my $x ( 0 .. $#{$in[$y]} ) {