Select Code to Download

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

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

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

use strict;
use warnings;
...

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