>perl -wMstrict -le
"my @foo = qw('usa' 'canada' 'strawberry');
 print join ',', @foo;
"
'usa','canada','strawberry'