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;