i believe what needs to be done is the sort references to arrays, because i believe (@a, @b, @c) will translate into one list of ($a[0] .. $a[$#a], $b[0] .. $b[$#b], $c[0] .. $c[$#c])

#!perl -wl

use strict;

my ($x, $y, $z) = ([0..1], [0..2], [0..3]);
my ($longest) = sort { $#$b <=> $#$a }($x, $y, $z);
print "@$longest";
[download]