# Using two-letter notation...
sub foo {
  my( $something, $that_ar ) = @_;
  foreach my $item ( @{$that_ar} ) {...
}