GrandFather, Your script is working just fine. I however am trying to take out the duplicate lines if exists above. I tried as following but giving me a hash error-
Original-

for my $list (@lists) {
    print $list->{line};
    printGroups($list->{groups}, %group);
    print "\n";
}
[download]

with

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

for my $list (@lists) {
    my @filtered = uniq(@lists);
    printGroups(@filtered->{groups}, %group);

    # prints acl lines AFTER object-groups
    print $list->{line};
    print  "line 54: ACL line\n\n";
}
[download]

Please let me know.