sub match {
# 123456789012345678901234567890123456789012345
  ++$c{$_}for@x;++$d{$_}for@y;grep$d{$_},keys%c
}