Using ForceArray => [qw( table tr td )],

my %rec;
for my $table (@{ $response->{body}{table} }) {
   for my $tr (@{ $table->{tr} }) {
      for my $td (@{ $tr->{td} }) {
         my ($key) = grep $_ ne 'content', keys(%$td);
         $rec{$key} = $td->{$key};
      }
   }
}

print("$rec{LastName}\n");  # For example
[download]