But did you try simply switching off warnings (in a suitably narrow scope, of course)? I.e.,
    no warnings;
or
    no warnings qw(numeric);

See warnings and perllexwarn.