I'll take you one step further, moving the row definitions up top and defining an array ref to put the rows into. You should be able to put the "push" lines in a for loop from here.

Good luck.

  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
           )
        );
[download]