sub addem;

$value = addem 2, 2;

print "2 + 2 = $value\n";

sub addem
{
    ($value1, $value2) = @_;
    $value1 + $value2;
}