my $aref = undef;
my $a = $$aref[0];