#!/usr/bin/perl
use strict;
use warnings;
my @array = (undef, undef);
pop @array;
pop @array;
print "foo\n" if defined @array;
__END__
defined(@array) is deprecated at foo.pl line 7.
        (Maybe you should just omit the defined()?)
foo