#!/usr/bin/perl

sub some_of {
    return 1 - &none_of;
}

print some_of(0.64, 0.52, 0.5);

sub none_of {
    my $result = 1;
    while ( @_ ) {
        $result *= (1 - shift);
    }

    return $result;
}