$ perl -Mstrict -Mwarnings -E '
    my %x;      say scalar keys %x; say scalar values %x;
    my %y = (); say scalar keys %y; say scalar values %y;
'
0
0
0
0