my $rowRef = 
   [th(['Vegetable',Breakfast','Lunch','Dinner'])];

  push @$rowRef, td(@Data1);
  push @$rowRef, td(@Data2);
  push @$rowRef, td(@Data3);
                    ...
    
   print $query->table({-border=>undef},
           caption('When Should You Eat Your Vegetables?'),
           Tr({-align=>"CENTER",-valign=>"TOP"},
           $rowRef
           )
        );