Select Code to Download

for my $var ( undef, 1 .. 10, 'fred' ) {
    goto 'CASE' . do{ local $^W; $var + 0 };
...
    print "\n";
    CASE0:
}

P:\test>388915
?> 1..10
...
goto_eval   15389/s         35%         32%         20%          --   
+      -0%
goto        15423/s         35%         33%         20%          0%   
+       --
?>

#! perl -sw
use strict;
...
goto        1000000000000000/s      0%          0%        0%       -- 
+        0%
if_cascade  1000000000000000/s      0%          0%        0%       0% 
+        --
?> ^Z