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;
      }
    },
  });