# Perl places all the parameters into an array named @_.

# You can access this array directly with the @_ syntax, or access individual parameters. 

#!/usr/bin/perl -w

$value = add(5, 6);
print "Value from add=$value.\n";

$value = add(25, 1);
print "Value from add=$value.\n";

sub add {
    my($a, $b) = @_;

    my($sum) = $a + $b;

    return $sum;
}