c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use constant { ONE => 1, FOUR => 4 };
 use constant AREF => [ ONE .. FOUR ];
 dd AREF;
 ;;
 AREF->[3] = 99;
 dd AREF;
 ;;
 AREF->[9] = 999;
 dd AREF;
 ;;
 $#{ +AREF } = -1;
 dd AREF;
"
[1, 2, 3, 4]

[1, 2, 3, 99]

[1, 2, 3, 99, undef, undef, undef, undef, undef, 999]

[]