johngg@shiraz ~ % perl -Mstrict -Mwarnings -E '
my @favs = ( q{a} .. q{z} );
say qq{@favs};
$#favs = 24 if scalar @favs > 25;
say qq{@favs};'
a b c d e f g h i j k l m n o p q r s t u v w x y z
a b c d e f g h i j k l m n o p q r s t u v w x y