use strict;
use warnings;
no  autovivification;

my $array;

warn sprintf 'array is%s defined', defined $array ? '' : ' not';
warn         '$#$array is ',             $#$array;
warn sprintf 'array is%s defined', defined $array ? '' : ' not';

##</code><code>##

13:28 >perl 1999_SoPW.pl
array is not defined at 1999_SoPW.pl line 7.
Can't use an undefined value as an ARRAY reference at 1999_SoPW.pl line 8.

13:28 >