(For a another flavor altogether, try reduce:

use List::Util qw(reduce);

my %c = (1 => { 2 => { 3 => 4 }});
print reduce { $a->{$b} } \%c, split(/\./, "1.2.3");
[download]

)