my $text = join('', <STDIN>);
my $pg_array = 
    join  ('',
    map   { "'$_', " } 
    split ('', $text));

$pg_array =~ s/, $//;
$pg_array = "{ $pg_array }";

$dbh->do("
    insert into tbl_name (product_id, model_number, description)
    values ($prod_id, $mod_num, $pg_array)
");