sub fetch {
	my ($hash, @keys) = @_;
	print "==> Fetching [" . join(', ', @keys) . ']' . "\n";
	for my $key (@keys) {
		return unless ref $hash eq 'HASH' && exists $hash->{$key};
		$hash = $hash->{$key};
	}
	print Dumper($hash), "\n\n";
}