http://qs321.pair.com?node_id=643816


in reply to Re^2: How to swap rows with columns?
in thread How to swap rows with columns?

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

I'm puzzled as to why you do the subtractions to find the upper bound of the arrays rather than use the $#array that Perl provides.

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

Cheers,

JohnGG