A better way ?

[Bill -Sx- Jones]

I have the habit of doing:

         last if (substr($vFlag, 1, 3) eq 'END');
$vSub = \&Sneex   if (substr($vFlag, 1, 5) eq 'SNEEX');
$vSub = \&Admin   if (substr($vFlag, 1, 5) eq 'ADMIN');
$vSub = \&Reports if (substr($vFlag, 1, 7) eq 'REPORTS');
$vSub = \&Logs    if (substr($vFlag, 1, 4) eq 'LOGS');
$vSub = \&Targets if (substr($vFlag, 1, 7) eq 'TARGETS');
$vSub = \&Usenet  if (substr($vFlag, 1, 6) eq 'USENET');

(substr($_, 0, 1) eq '[') ? next : &$vSub;


(NOTE:  Obviously NOT all of the 668 lines of program code
is here, so this doesn't stand on it's own two feet...)


Q: Is there a better way?

Thx;
_Sx____________________
  ('>    -Sx- IUDICIUM
  //\   Have Computer -
  v_/_    Will Hack...