sub fun1 {
  my ($first) = $_[0];
   ++$first * ++$_[1];
  }
@a = (5, 3);
print fun1(@a), "\n";
$x = 3;
$y = 4;
print fun1($x,$y), "\n";
print $x, " ", $y, "\n";