my $target = 'bar';	# the end key

my $path = ('stuff', 'hierarchy', 'album');

my $nodule = $structure;

while (my $next_key = shift @path) {
	$nodule = $nodule->{$next_key};
}

my $triumphant = $nodule->{$target};