# All these are random accesses.
my ( $any ) =  values %$hoh;
print "source: ", ${[values %$hoh]}[0]{source};