Re: foreach only for a section of a list

[brx]

in reply to foreach only for a section of a list

Another way, with pop and push:

my $last = pop @somewords;
foreach my $core (@somewords) {
  print " $core;\n"
}
push @somewords,$last;

Update: it's useless to keep $last. See the improvement by johngg, in reply.

[johngg]

You could use a do block to scope the existence of $last so that it isn't left lying around.

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my @arr = qw{ one two three four };
> push @arr, do { my $last = pop @arr; say for @arr; $last };
> say qq{@arr};'
one
two
three
one two three four
knoppix@Microknoppix:~$