I've also seen many abuses of map. If you see someone using things like map frequently, it's usually a sign that the person doesn't really have a good grasp on Perl and is trying to apply one solution to every prolem.
This might be a clearer way to do it:
# ignore first two args
my (undef, undef, $foo, $bar, $baz) = @_;