my @sub_locs2;
  for (@session_keys) {
   if ($_ =~ /taxman.add.subloc./) {
     $_ =~ s/taxman.add.subloc.//g;
     push @sub_locs2, $_;
   }
  }


  my @sub_locs = map { $_ =~ s/taxman.add.subloc.//g if $_ =~ /taxman.add.subloc./ } @session_keys;
##</code><code>##

taxman.add.subloc.20
taxman.add.level
taxman.add.value
taxman.add.loc
taxman.add.sel
taxman.add.subloc.1
taxman.add.code
taxman.add.subloc.16
taxman.add.subloc.19
taxman.add.name
taxman.add.lvid