use warnings;
use strict;
use Data::Dumper;

my $array;
print Dumper($array);
print Dumper($#{$array});
print Dumper($array);

__END__

$VAR1 = undef;
$VAR1 = -1;
$VAR1 = [];