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