http://www.perlmonks.org?node_id=989953


in reply to Grep with AoA [Solved]

Use just grep($$_[0]=~/^$item$/, @list)