#!/usr/bin/perl -l

use strict;
use warnings;

package Module;

sub new {
    bless { ACLS => {foo => 1, bar => 2} }, shift;
}

sub acls {
    my $self=shift;
    $self->{ACLS}
}


package main;

my $mod=Module->new;
while (my @stuff=each %{ $mod->acls } ) {
    print "@stuff";
}

__END__