use Devel::Peek;
my @a;
Dump( $#a );

my $b = {foo=>1};
exit if $b + 0 > 0x10125000;

$#a=$b;

Dump( $#a );