$product = any(1, 2, 3) * any( 2, 3, 4);
print eigenvalues( $product );

##</code><code>##

$ideal = any(  
 all("tall", "rich", "handsome"),
 all("rich", "old"),
 all("smart","Australian","rich")
);

while (@features = get_description) {
 if (any(@features) eq $ideal) {
  print "True love";
 }
}

##</code><code>##

sub factors 
{
 my ($n) = @_;
 my $q = $n / any(2..$n-1);
 return eigenstates(floor($q)==$q);
}

##</code><code>##

sub factors 
{
 my ($n) = @_;

 my @q = map { $n / $_ } (2..$n-1);
 return grep {
  floor( $_ ) == $_
 } @q;
}