$found{$1}++ while /($foo|$bar|$baz)/go;