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

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