#!/usr/bin/perl -w

use strict;

# Easy way to set up.
my %hash = ( "Fred" => 5, "Bob" => 3 );

# Hard way to set up.
my %hash2;

$hash2{Fred} = 5;
$hash2{Bob3} = 3;

# Easy to copy.
my %hash3 = %hash2;