Re^2: How to swap rows with columns?

[BrowserUk]

Nice variation of the problem.

@arr = (
   [ qw{ ein zwei drei } ],
   [ qw{ one two three four five } ],
   [ qw{ un deux trois quatre } ],
   [ qw{ uno due tre quattro cinque sei} ],
);;

push @xformed, [ map{ shift @$_  } @arr ] while @{ $arr[-1 ] };;

print pp @xformed;;
(
  ["ein", "one", "un", "uno"],
  ["zwei", "two", "deux", "due"],
  ["drei", "three", "trois", "tre"],
  [undef, "four", "quatre", "quattro"],
  [undef, "five", undef, "cinque"],
  [undef, undef, undef, "sei"],
)

[johngg]

Now that's very neat! BrowserUk++

Cheers,

JohnGG

[BrowserUk]

Not so neat after all. It relies on the fact that your data had the biggest sub-array last. Move it to any other position and it fails. You still need max() for a proper solution.