for my $k (keys %{$h{something}}) {
    print $h{something}{$k}[0]{foo}{bar};  # FETCH _every_ time!
}

##</code><code>##

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