sub number_to_letter {
  return chr(96+shift);
}

##</code><code>##

my %h;
@h{1..18} = 'a'..'r';