sub match {
#          1         2         3
# 12345678901234567890123456789012345678
  $_++for@c{@x},@d{@y};grep$d{$_},keys%c
}