sub aristotle {
#        1         2         3         4
#234567890123456789012345678901234567890123456789
@_{@x}=(1)x@x;$_|=2for@_{@y};grep$_{$_}==3,keys%_
}