$ perl -le'sub f {$var++; print $_[0]} f $var'
1
$