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

##</code><code>##

if($in){ 
 foreach(@actions){
  unless($_ eq /one|/){
   if($in eq $_){
    do{\&{$_}}->()}}}}