my $array= [1,2,3,4,5];

while (@$array) {
    push my @r, shift @$array if (@$array);
    push @r, shift @$array if (@$array);
    push @r, shift @$array if (@$array);
    print join(',',@r),"\n";
}