use warnings; use strict; my $hashref = {1..20}; print scalar(keys %$hashref)."\n"; print length keys %$hashref;