perl -Mstrict -Mwarnings -e '
printf "%s\n", do {
        local @_ = (", ", 1..10);
        join shift @_, @_;
};
'