c:\@Work\Perl\monks>perl -wMstrict -le
"dispatch(qw(foo 9 8 7 6));
 ;;
 sub dispatch {
   my $cmd = shift;
   my $evil_string = '&' . $cmd . '(' . join ',', @_ . ');';
   print qq{>>$evil_string<<};
   }
"
>>&foo(4);<<

c:\@Work\Perl\monks>perl -wMstrict -le
"dispatch(qw(foo 9 8 7 6));
 ;;
 sub dispatch {
   my $cmd = shift;
   my $evil_string = '&' . $cmd . '(' . join(',', @_) . ');';
   eval $evil_string;
   }
 ;;
 sub foo { print qq{'in Foo:' (@_)} }
"
'in Foo:' (9 8 7 6)