#!/usr/bin/perl

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

    return $result;
}

print none_of(0.64, 0.52, 0.5)