Select Code to Download

local $, = ", ";
local $\ = "\n";
nFor { print map $lists[$_][ $_[$_] ], 0..$#_; } map 0+@$_, @lists;

my @list1 = qw( apple orange tomato );
my @list2 = qw( dog cat platypus );
...
        $list3[ $_[2] ],
} ( 3 ) x 3;