Select Code to Download

#!perl -wl

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