my @sub_locs= map {
    local( $_ )= $_;
    $_ =~ s/^taxman\.add\.subloc\.//
        ?  $_
        :  ();
} @session_keys;

my @sub_locs= map {
    s/^taxman\.add\.subloc\.//  ?  $_  :  ();
} @{[ @session_keys ]};
    
my @sub_locs= grep {
    s/^taxman\.add\.subloc\.//
} @{[ @session_keys ]};

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