Select Code to Download

my %rec;
for my $table (@{ $response->{body}{table} }) {
...
}

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