Argument "foo" isn't numeric in subroutine entry at /usr/local/lib/perl/5.8.4/Foo.pm line 84.