http://www.perlmonks.org?node_id=361037

Public Scratchpad

Download, Select Code To D/L

---

my %functions = (
 "setup"  => {
   coderef => \&get_events,
   args    => [\%formdata, $filelocation],
  },
);
[download]

Calling it thusly:

$functions{'setup'}->{coderef}->($functions{'setup'}->{args});
[download]