my $x = 3;

somesub ( $x );

sub somesub {
    print ++$_[0];
}

print $x;