in reply to Grep with AoA [Solved]

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

In Section Seekers of Perl Wisdom