$ perl -e 'use warnings; my @bar; print "foo" if defined @bar'
defined(@array) is deprecated at -e line 1.
        (Maybe you should just omit the defined()?)