#!/usr/bin/perl

use 5.016;
use warnings;
use strict;

our $x = 5;

{
    local $x = 10;
    sub x() {
        say $x;
    }
}

x();