@_ is a list of aliases 

sub add {
    my($arg1, $arg2) = @_;
    $_[0] = $arg1 - 1;
    $_[1] = $arg2 + 1;
    return $arg1 + $arg2;
}