my $coderef = do {
    my $x = 10;
    sub { print "\nx is : $x\n"; };
};