Some more...

#1
while (@array) {
  my $elem = shift @array;
  ...
}

#2
foo(@array);
...
sub foo {
  my $elem = shift;
  ...
  foo(@_) if @_;
  ...
}

#3
foo(@array);
...
sub foo {
  my $elem = shift;
  ...
  &foo if @_;
  ...
}

#4
{
  my $elem = shift @array;
  ...
  redo if @array;
}
[download]

Duplicate these for using pop or splice rather than shift if you want. Also with your existing ones do you count for as different than foreach? Beginners do.

I think we passed 20. :-)