sub martin {
  #          1         2         3
  # 12345678901234567890123456789012345
    @z{@y}=(1)x@y;0+grep$_,delete@z{@x}
}