One thing to know about Perl subroutines is that you don't need to specify a return value, since Perl automatically returns the last expression evaluated. So sometimes you'll see something like:

sub add{
    my $value1 = $_[0];
    my $value2 = $_[1];
    my $result = ($value1 + $value2);
}
[download]

or

sub add{
    my $value1 = $_[0];
    my $value2 = $_[1];
    ($value1 + $value2);
}
[download]

or even

sub add{
    ($_[0] + $_[1]);
}
[download]

all of which return the same result.

I would probably do it as

sub add{
    return ($_[0] + $_[1]);
}
[download]

so that it is clear what I am trying to return. But as the Scarecrow said, "People do tend to go both ways."

()-()
 \"/
  `