foreach $element (@array) {
   $var = $var . $element . ",";
}

##</code><code>##

$array[@array -1]="";