my $x; yoursub '$x';