#!/usr/bin/perl

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

print all_of(0.64, 0.52, 1-1e-14)