[Perl 6] Slurping parameters.

sub add(*@args) {
    my $s = 0;

    for @args -> $e {
        $s += $e;
    }

    $s;
}

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