Select Code to Download

#!/usr/bin/perl -w

use strict; use warnings; 
...

return $res; 
}  # counter

$VAR1 = {
          'f' => 2,
...
        };

$VAR1 = {};

printer(counter($ar,['state','sex','occupation']));

$VAR1 = {
          'CA' => {
...
                           }
                  }
        };