my $root = $h{something};                  # FETCH _once_
for my $k (keys %$root) {
    print $k->[0]{foo}{bar};
}