sub printit{ print @_; }

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