my $refData = prepData();
for my $item (@$refData) {
   #format and output
}
sub prepData {
    my @data;
    #create array of hashes
    return \@data;
}