use strict;

my @foo = ('usa', 'cananda', 'strawberry');

@foo = map { "'$_',", @foo);

print @foo;

# printing as 'usa','cananda','strawberry',
# instead of 'usa','cananda','strawberry'