use constant ADDRESS => 1 
use constant POSTAL_CODE => 2
$persons{$name}[ADDRESS] = $addr;
if (exists $areas{POSTAL_CODE}[ADDRESS]{$addr}) 
  { ... do something...}