strict dont warn it

Strict doesn't warn on anything; it just makes some things errors. However, if you had the -w switch on (or use warnings), then you'd notice, (update:) in recent versions of perl

defined(@array) is deprecated at -e line 1.
        (Maybe you should just omit the defined()?)
[download]

(This shows why you need more then just use strict.)