Select Code to Download

{
package My::Sys;
...
# get your values here
print Dumper $sys->get_acls();
}

$VAR1 = {
          'list 1' => [
...
                        8
                      ]
        };