sub fubar {
   my %hash = @_;
   print $hash{key1}, $hash{key2};
}
...
fubar(%{$arrayofhashes[$index]});

##</code><code>##

sub fubar {
   my $hashref = shift;
   print $hashref->{key1}, $hashref->{key2};
}
...
fubar($arrayofhashes[$index]);

##</code><code>##

sub fubar(%) {
   my $hashref = shift;
   print $hashref->{key1}, $hashref->{key2};
}
...
fubar(%{$arrayofhashes[$index]});