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;