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