#!/usr/bin/perl

use strict;
use warnings;

my @array_of_hashes;

Add_key_and_value( $array_of_hashes[0], qw/ James Bond / );

print $array_of_hashes[0]{'James'}, "\n";  # Should print 'Bond'.

##</code><code>##

sub Add_key_and_value {
  $_[0]->{ $_[1] } = $_[2];
}

##</code><code>##

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