use strict;

my %data = (
  runme => 1,
  notme => 0,
);

for (keys %data) {
  $main::{$_}->() if $data{$_};
}

sub runme { print "you should see me\n" }
sub notme { print "don't look at me!\n" }