sub foo {







   my $array = @_;







   foreach ($array) {







      do stuff;







   }







   # ...







}