#!/usr/bin/perl -w
use strict;
my %hash = (
  foo => 1,
  bar => 2,
  baz => 3,
  foo => 4,
);
print $hash{foo}, "\n"; # prints 4