# UNTESTED.

print "this one works: $other0{'cat1'}\n";
{
    no strict 'refs'
    print "problem here: ${$catnames[0]}{'cat1'}\n $catnames[0]->{'cat1'}";
}