We need to see the package Foo code. You've likely got something in there that is jumping between objects.

--
$you = new YOU;
honk() if $you->love(perl)