sub a {
    my $x = 3;
    *b = sub {
        print $x, $/;
    };
}