Probably, but it could also be

sub routine{
   my $x = 123;
   print $x;  ## 123
   if( 1 ) {
        my $x = $x; ## Snippet here
        $x /= 2;
        print $x; ## 61.5
        do {
            my $x = $x; ## Or here
            $x *= 10; 
            print $x; ## 615
        };
        print $x;  ## 61.5
   }
   print $x;  ## 123
}
[download]