my $n = 8; my $i = 1; my @array; push @array, $n--, $i++, $i++, $n-- while $n > $i; print "@array";