in reply to typeglobs and filehandles

If you add 
    local *FH;

[download]
at the top of function foo, it will work.

In Section Seekers of Perl Wisdom