$x=0;
&myprint($x, $x++);

sub myprint{
    print join ",",@_;
}