use Storable qw( dclone );

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

#rest of script