use strict;

my (%other0, @catnames);

%other0 = (
    'cat0' => 'a string',
);

## create reference to %other0 hash
@catnames = (\%other0);

print "access hash: ", $catnames[0]->{'cat0'};

__output__

access hash: a string