The '$h{$_}++ == 1' will never be true the first time $_ is seen, so anything that shows up only once in the array will be discarded by the grep.