use JSON::XS;
my $data = [qw( qweqwe rtyr tyr \'asdasd fghfghfgh)];
my $json = encode_json $data; 
# to file...