sub addem { ($value1, $value2) = @_; $value1 + $value2; } @_ = (2, 2); $value = &addem; print "2 + 2 = $value\n";