perl -wle'use Data::Dumper;
$a = \();
print Dumper $a;
@a = \();
print scalar @a'
$VAR1 = \undef;

0