sub match {
# 123456789012345678901234567	
  ++$c{$_}for@x;grep$c{$_},@y
}