#! perl -w
use strict;

local ($,=" - ", $\="\n");

use Quantum::Superpositions;
sub min { eigenstates( any(@_) <= all(@_) ) }
sub max { eigenstates( any(@_) >= all(@_) ) }


my @array = qw/ 10 15 20 10 7 4 /;
my ($t1) = all();
print ($t1);
my ($t2) = max(@array);
print $t2;
print max(@array), (($t1) = max(@array)), $t2;

__DATA__

this results in:
all()
20
20 - 20 - 20