I'm pretty sure you wanted grep there and not map, and you're altering %_ without warning. As others have said, look at the FAQ entry for proper code.

-- Randal L. Schwartz, Perl hacker