$ perl -e 'sub pdu:locked:method { return 'pdu'} print pdu(), $/' Use of :locked is deprecated at -e line 1. 5 $ perl -e 'my @array; if (defined @array) { print 6 }' defined(@array) is deprecated at -e line 1. (Maybe you should just omit the defined()?)