foreach $_(@actions){ if($in eq $_){no strict 'refs'; &$_()}}