%words ( "fred" => "camel", "wilma" => "alpaca", "barney" => "llama" ); print $words{"fred"}; #prints camel $aname = "wilma"; print $words{$aname}; #prints alpaca