%State_files = (
    'midwest.txt' => [ qw(Illinois ...) ],
    'east.txt'    => [ ('New York', ... ) ],
    ...
    );

##</code><code>##

%File_states = (
    Illinois   => 'midwest.txt',
    'New York' => 'east.txt',
    ...
    );