Select Code to Download

use Benchmark qw(cmpthese);

...
               Rate predeclare  nodeclare
predeclare  89621/s         --       -19%
nodeclare  110466/s        23%         --

my $foo = "a string";
print "\$foo is $foo\n";
...
$foo is 2
$foo is 3
$foo is a string