my @data = prepData();

for my $item (@data) {
    #format and output
}

sub prepData {
    my @data;
    #create array of hashes
    return @data;
}