sub next_file {
    ...
    my @alphabet = qw/a b c d e f g h j k m n p q r s t u v w x y z/;