$ perl -le'
my @x = "a" .. "z";                                           
$x{ $_ }++ for @x;
print for scalar @x, 0 + @x, scalar %x, 0 + %x;
'
26
26
19/32
19