#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

sub foo {
    
    my $var = 'x';

    sub test {
      $var=1;
      print $var."\n";
    }

    test;
    $var = 'y';
}

foo;
test;