my $gser2= join ';', $gser[0],$gser[1],$gser[2],$gser[3],$gser[4];