use 5.026;
use warnings;

my @letters = do {
   my @chars   = ( q{a} .. q{z} );
   my @counts  = (
      9, 2, 2, 4, 12, 2, 4, 2, 9, 1, 1, 4, 2,
      6, 8, 2, 1, 6, 4, 6, 4, 2, 2, 1, 2, 1 );
   map { ( $chars[ $_ ] ) x $counts[ $_ ] } 0 .. 25;
   };

say join q{}, @letters;

##</code><code>##

aaaaaaaaabbccddddeeeeeeeeeeeeffgggghhiiiiiiiiijkllllmmnnnnnnooooooooppqrrrrrrssssttttttuuuuvvwwxyyz