Select Code to Download

use strict;
use Data::Dumper;
my $data = OpenFlatFile("flatfile.txt", "\t");
...
  }
  return $data;
}

$VAR1 = {
          'AGES' => [
                      26,
...
                          ],
          'COLCOUNT' => 4
        };