sub main{
my $answer = &add(1,2);
print $answer;
}

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