hashでつまづいてた。

my $profile = [{
  "鈴木" => [{"address" => "東京都千代田区"}],
  "山田" => [{"address" => "東京都葛飾区"}]
}];

foreach my $profile_record( $profile) {
  foreach my $keys(keys $profile_record) {
    foreach my $human ($profile_record->[$keys]) {
      my %human_data = %$human;
      #print "human\n";
      #print Dumper($human);
      #print "humandata\n";
      #print Dumper(%human_data);
      foreach my $data (values %$human) {
        foreach my $human_data (@$data) {
          print Dumper($human_data->{'address'});
        }
      }
    }
  }
}