from the learning perl book (may not be exact):

%words 
(
    "fred" => "camel",
    "wilma" => "alpaca",
    "barney" => "llama"
);

print $words{"fred"}; #prints camel
$aname = "wilma";
print $words{$aname}; #prints alpaca
[download]

hope that helped