merlyn's right. You need to do a deep clone. Try using Storable's dclone. It should do a deep copy for you.

use Storable qw( dclone );

my %subs = ( path => [ @{dclone($session{hierarchy_path})} ] );

#rest of script
[download]

--

flounder