{
    my @alphabet;

    BEGIN { @alphabet = ('a' .. 'h', 'j', 'k', 'm', 'n', 'p' .. 'z'); }

    sub next_file
    {
        ...
    }
}