for ($j = 1; $j < 7; $j++) {
		my $frame = $mf->Frame(-background => 'alice blue', -padx => 20, -pady => 5)
				->pack(-expand => 1, -fill => 'both', -side => 'top');
			$frame->Label(-text => $meals[$j-1], 
						-background => 'alice blue', 
						-width => 9)
				->pack(-side => 'left');
			$frame->Text(-height => 6, 
						-background => 'white', 
						-width => 25)
				->pack(-side => 'left');
				
			for ($i = 2; $i < 9; $i++) {
				if ($c <= 6) {++$c;}
				else {$c = 1;}
					my $id = "\$f" . $j . $c; # Create identifier
					$id = $frame->Text(-height => 6,
								-background => 'white', 
								-width => 10)
						->pack(-side => 'left');
				} #end for $i
		} # End for $j