Do you mean like this?  print join "\t",map{join ",",@$_}([1,2,3],["abc","def"]);

Originally posted as a Categorized Answer.