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