undef %last_name; @last_name{qw(fredref fred)} = (\$last_name{fred}, "flintstone");