Select Code to Download

sub hash_display_listing{
  # my $ref = @_;
  my ($ref) = @_;
  # or 
  # my $ref = shift ;

$sth->execute($searchterm) 
      or die "Unable to execute query: " . $sth->errstr;    
warn("Finished sub search record");        
$result = generateResponseHash($sth);

elsif ($action eq "updatetable_167"){
  warn("Entered updatetable_167");
...

  warn("after jason_str print");
}