use Data::Dumper;
my $aap = \();
my $noot = [];
print Dumper($aap);  
print Dumper($noot);
__DATA__
$VAR1 = \undef;
$VAR1 = [];