0.0232839584350586 my outside
0.0305099487304688 my inside

##</code><code>##

use Time::HiRes qw(time);
my ($i);
my $start = time;
{
  my $x;
  for $i (1..1e6) {
    $x = 1;
  }
}
my $end = time;
printf "%s my outside\n", $end - $start;

$start = time;
for $i (1..1e6) {
  my $x = 1;
}
$end = time;
printf "%s my inside\n", $end - $start;