Maybe you want to do it like this:

my @array_of_hashes;

Add_key_and_value( \@array_of_hashes, 0, qw/ James Bond / );

#...

sub Add_key_and_value {
  my( $ref, $index, $key, $value ) = @_;
  $ref->[$index]{ $key } = $value;
}
[download]