sub print_person {
      my $address_hashref = shift;
      my $hobbies_arrayref = shift;
      print "address line 1 = $address_hashref->{'addr1'}\n";
      print "address line 2 = $address_hashref->{'addr2'}\n";
      # etc, etc.
 
      # or, turn hashref back into a hash, and arrayref back  into an array
      my %address = %{$address_hashref};
      my @hobbies = @{$hobbies_arrayref};
      print "address line 1 = $address{'addr1'}\n";
   }

   my %address = (
      "addr1" => "1 Main St",
      "addr2" => "Suite 101",
      "city"  => "Somecity",
      "state" => "Somestate"
   );
   my @hobbies = ( "flying", "mountain climbing" );

   print_person(\%address, \@hobbies);