BEGIN {
    my $p = rand() < .5 ? '$' : '';
    eval "sub foo($p) {1;}";
}

foo / 1;