sub hello (_) {say "Hello, ", @_ ? $_[0] : $_}

hello "world";
my $_ = "mars";
hello;
{
    my $_ = "earth";
    hello;
}
hello;
__END__
Hello, world
Hello, mars
Hello, earth
Hello, mars