my $gser2 = join ';', @gser[0..4];