%sample = ( location => .somedata.);

##</code><code>##

foreach $key (keys %sample) {
   &$key($sample{$key})  if ($key <is a valid name of a subroutine>);
}