sub lunch { $_[0]++ }
my $foo = 1;
warn $foo;
lunch($foo);
warn $foo;
__END__
1 at - line 3.
2 at - line 5.