my @foo = (1..15);
my $n = 5;

my @bar = @foo[map {$_ + $n - 1 - 2 * ($_ % $n)} (0..$#foo)];

print "@bar";