Ok, for one...

$_ =~ s/taxman.add.subloc.//g if $_ =~ /taxman.add.subloc./
[download]

is rather a waste of time...

s/taxman\.add\.subloc\.//g
[download]

is sufficient since s will only do the replace if it matches, making the check for a match just slow you down... also you will notice that I removed $_ =~... s/// and // default to use $_, so it is just extra typing (you can do it if you want). I also changed your . to \. this is because . has special meaning in a regexp, which is that . will match any single character...

As to why you are editing your main array. Map goes through your array and aliases each item of the array to $_. That means that any changes to $_ change the array items (this happens in for(@session_keys) as well), what you want to do is find the value you need and return it from the code block without editing $_... like so

my @sub_locs = map { /taxman\.add\.subloc\.(.*)/ ? $1 : () } @session_
+keys;
[download]

That should do what you want... the .* matches everything after taxman.add.subloc. and the parens around it tell perl to store what it finds in $1. the ? : says if I matched sucessfully, return $1, if not return () which means nothing will be put into @sub_locs unless there is a match...

sound good?

Update my using return was wrong.. fixed...

                - Ant
                - Some of my best work - Fish Dinner