my @arr = qw(1 2 3 4 5 6 7 8 sd frd sed sddfsd asecf ssdd myh);
my $i = 1;
my @arr2 = grep { $i++ % 5 == 0 } @arr;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.