s/$/, /;

##</code><code>##

$_ .= ", ";

##</code><code>##

my$x=()=/,/g;

##</code><code>##

my $x = tr/,//;