Select Code to Download

%dbfield = (
                'Edte' => [DATE],
...
                'Excdr' => [XCDR],
                'Eab'   => [ACCESS_BTS, ACCESS_SECTOR, ACCESS_CHANNEL]
    );

foreach $thing (keys %dbfield) {
                print "the members of $thing are:\n";
...
                        print "\t$_\n";
           }
   }

#db connect, prepare, exectute goes here....

...
    #switch statement to perform calculations on values ($ref{'DATE'})
    }
}