sub add {
    my $sum = 0;
    for ( @_ ) {
        $sum += $_;
    }
    return $sum;
}