Select Code to Download

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

sub add_person {
  my %person = ();
...
  $person{zip} = shift;
  ...
}