use strict;
use warnings;
my @array = qw/1 2 3 4/;
my $string .= "\"$_\"," for @array;