sub buu_intersector {
#        1         2
#234567890123456789012345678
grep$_, @{{map{$_,1}@x}}{@y}
}