sub add1 { return ++$_[0]; }
my $two= add1(1);