#In module:
sub acls {
    my $self = shift;
    my %acls = \$self->{ACLS} # $self->{ACLS} is a hashref
    return %acls;
}

#using module:
my $mod = new Module;
while(my ($name, $value) each $mod->acls) {
    print $name;
}