sub add_person {
  my %person = ();
  @person{qw(firstname lastname addr1 addr2 city state zip)} = @_;
  ...
}

##</code><code>##

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;
  ...
}