Help for this page
%sample = ( location => .somedata.);
foreach $key (keys %sample) { &$key($sample{$key}) if ($key <is a valid name of a subroutine>); }