use Data::Diver qw( Dive );
my $ref = {'original' => {'default' => 'result'}};
print Dive($ref, 'original', 'default'), "\n";
die;