You can always lexically supress the warning if you're using 5.6 or later... In the following code $cat will trigger a warning but $dog won't.

#!/usr/bin/perl
use warnings;
use strict;

$main::cat = 'garfield';
{
 no warnings 'once';
 $main::dog = 'spot';
}
[download]

-Blake