Array Perl

  1. Home
  2. Perl
  3. Array
  4. Push array and join
#!/usr/bin/perl
use warnings;
use strict;
my $max = 6;
my @array = (1..$max);
while (my $element = shift @array) {
    push (@array,$max - $element);
    print $element, " : ", join(",", @array), "\n";
}