Use foreach instead of map and grep in Perl

Question

I am trying to convert the map and grep code totally to foreach loop, but I am facing trouble when I do it.

Here is the array code