sub add_person {
  my %person = ();
  $person{firstname} = shift;
  $person{lastname} = shift;
  $person{addr1} = shift;
  $person{addr2} = shift;
  $person{city} = shift;
  $person{state} = shift;
  $person{zip} = shift;
  ...
}