my $x; sub x :lvalue { use somepragma; $x; } x() += 1;