Select Code to Download

use strict;
use warnings;
...

   print Dumper(\%tables, $aref);
}

$VAR1 = {
          'ABC' => [
...
            'f3'
          ]
        ];

$VAR1 = [
          'f1',
          'f2',
          'f3'
        ];