in reply to "No strict refs" will be the death of me

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" }


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