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

##</code><code>##

my @list1 = qw( apple orange tomato );
my @list2 = qw( dog cat platypus );
my @list3 = qw( 1 2 III );

nFor{
    print join ' ',
        $list1[ $_[0] ],
        $list2[ $_[1] ],
        $list3[ $_[2] ],
} ( 3 ) x 3;