use Benchmark qw/ cmpthese /;
  cmpthese(-5, {
    outside => q{
      my $scalar;
      for (1..10_000) {
        $scalar = 1;
      }
    },
    inside => q{
      for (1..10_000) {
        my $scalar = 1;
      }
    },
  });

##</code><code>##

         Rate  inside outside
inside  261/s      --    -15%
outside 307/s     18%      --