#!/usr/bin/perl -l

use strict;
use warnings;

package Module;

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

sub acls {
    my ($self , $callbackref) = @_;
    while ( my ($k,$v) = each %{ $self->{ACLS} }){
        &$callbackref($k,$v);
    }
}


package main;

my $mod=Module->new;
$mod->acls (
   sub{  print "@_\n";  }
);

##</code><code>##

bar 2

foo 1