$ perl -E 'my @x = (); my $y = @x; say $y'
0