my @sub_locs = grep { defined $_ } map { /taxman\.add\.subloc\.(.*)/ } @session_keys;