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