Functional style 

sub add {
    my($arg1, $arg2) = @_;
    return $arg1 + $arg2;
}