You can get around strict refs if you try:

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" }
[download]

$_="goto+F.print+chop;\n=yhpaj";F1:eval