Could you post your real code? I can tell this isn't it because you're capitalizing Perl functions, which won't work and $count is missing it's sigil ($) in that "Foreach" (sic) block.

-sam