bash$ perl -e 'print join(",", ('meow', (), 'moo')), "\n";'
meow,moo