use strict;
use warnings;
my @foo = ('usa', 'cananda', 'strawberry');
@foo = map { "'$_'"} @foo;
print @foo;