# define it
sub Add {
    my ($x,$y) = @_;
    return $x + $y;
}
# call it 
print Add(5,3);
# it will print out 8