sub add(@arr) {
    my $sum = 0;
    
    for @arr -> $e {
        $sum += $e;
    }
    
    $sum;
}

my @arr = (1, 2, 3, 4, 5);
my $sum = add(@arr);
$sum == 15 or die "Wrong value";