my %states; $states{id_0}{$_} = ['id_1'] for 'a'..'z';