my $i = 1; inc($i); sub inc { $i++; #note: $i is not declared and read from @_ }