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