SWITCH: for ($Request->item("View")->item()) { if ($_ eq 'HowTo') { $str .= mHowTo(); last SWITCH; if ($_ eq 'Tutorials') { $str .= mTutorials(); last SWITCH; ... } #### my %actions = ( HowTo => \&mHowTo, Tutorials => \&mTutorials, ... ); ... sub tSupport { my $view = $Request->item("View")->item(); return exists($actions{$view}) ? $actions{$view}->() : mSearch(); }