if($in){
 foreach(@actions){ 
  unless($_ eq /one|/){ 
   if($in eq $_){ 
    no strict "refs"; &$_()}}}}