perl -wMstrict -MData::Dump -e'  my $x =  $a->{list}->[0];  dd $a'
{ list => [] }