sub get_a_processor {
  # will return a reference to a sub that processes
  return sub {
     # your processing stuff
  }
}
my $processor = get_a_processor(); # $processor points to inner sub
$processor->($TABNAME);  #calls the inner sub on $TABNAME