$_ = 1;

test($_);

sub test {
    $_ = 2;
    print $_[0], "\n";
}

# output of script
__END__
2