Select Code to Download

my $var1="fie;
my $var2="fum";

$newvariable="fee $var1 fo $var2";
print "$newvariable\n";

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

my @gser=('TME GSER', $dealn, 'PAS 927922','SO',$so);
my $gser2= join ';', $gser[0],$gser[1],$gser[2],$gser[3],$gser[4];
worksheet->write_string(2, 4, $gsers); #input string into excel cell