my @data;
prepData(\@data);
for my $item (@data) {
    #format and output
}
sub prepData {
   my $refData = shift;
   #do data generation;
}