10.3. Creating hashes

my %user;
%user = ("fname", "Foo", "lname", "Bar");

my %user = (
    "fname", "Foo", 
    "lname", "Bar",
    );

my %user = (
    fname => "Foo",
    lname => "Bar",
    );

print $user{fname}, "\n";

$user{fname} = 'Moo';
$user{email} = 'foo@bar.com';