in reply to how to push 5th element from one array to another array
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;
In Section
Seekers of Perl Wisdom
in reply to how to push 5th element from one array to another array
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;