Select Code to Download

foreach my $row (@{$table}) {
   print "columns: ", join(", ", @{$row}), "\n";
}

my %search_cache;
sub search_for {
...

   return $search_cache{$value} = undef;  # cache failure
}