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

##</code><code>##

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

##</code><code>##

my $gser2 = join ';', @gser;

##</code><code>##

use strict;
use warnings;

{
    local $"  = q{;};       # locally redefine list separator
    my @gser  = 1..5;
    my $gser2 = "@gser";    # the double quotes force interoplation
    print "gser2 = $gser2\n";
}

__END__
gser2 = 1;2;3;4;5