no strict "vars"; # Allow local decs
  local *item = \%{$array[0]}; # Creates a ref. No copy.
  print $item{key};