nFor would require:

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

Baloney! You just like complicated don't you.

All that's needed is the intuative:

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;
[download]