$in=param('in');
@actions=qw(this that foo bar zzz); 
foreach(@actions){ no strict "refs"; if($in eq $_){&$_()}}