sub dive {
	my ($ref,@path) = @_;
	return $ref unless @path;
	my $el = shift @path;
	if ($el=~/^\[(\d+)\]$/)
		{ return dive( $ref->[$1],  @path ) }
	else
		{ return dive( $ref->{$el}, @path ) }
}

print dive( $data, qw/ obj prop [0] / ), "\n";   # prints "blah"
print dive( $data, qw/ object prop subprop
	[1] name / ), "\n";                          # prints "bar"