my $var=1;
&printit($var,$var++);

sub printit{ print @_; }