@newarray=(fee $var1 fo $var2);
print "$newarray[0],$newarray[1],$newarray[2],$newarray[3]\n";
$gser2="$newarray[0],$newarray[1],$newarray[2],$newarray[3]";