my %subs = ( path => [ @{$session{hierarchy_path}} ] );
$subs{bottom_path_term} = ${pop(@{$subs{path}})}{term};
if (@{$subs{path}}) { delete $subs{path}[$#{$subs{path}}]{id}; }
else { delete $subs{path}; }