{
    my $n = 10;
    $ref1 = sub { print( $n++, "\n" ) };
    $ref2 = sub { print( $n++, "\n" ) };
}