local $\="\n";

my $roy = 4;

print $roy;
print asdf($roy);
print $roy;

sub asdf {
   my $self = $_[0];
   $_[0] = 66;
   $self = 0;
   return "yoda";
}
__END__
4
yoda
66