$ perl -e 'print join(", ",qw(1 3 6 2));'
1, 3, 6, 2