$ perl -le 'sub x { our $c = shift if @_; $c } $::c = 1; print for x(), x(2)'
1
2