sub f{
  my %d;
  $d{$_}++for grep /[a-z]/, shift=~/./g;
  $d{$_} ||= 0for a..z;
  %d
}