#!/user/bin/perl

use strict;
use warnings;

my %inventory = ('fruit'=>['apple','orange','banana'],
                 'veg'  =>['celery','cucumber','bean'],
                 );
             
my $num_days = scalar(@{$inventory{'fruit'}});
foreach my $day (1..$num_days){
   my @menu = ();
   foreach my $food (keys %inventory){
        push(@menu,"$food=>$inventory{$food}->[($day-1)]");
   }
   print "Day $day: " . join(", ",@menu) . "\n";
}

exit(0);

##</code><code>##

Day 1: fruit=>apple, veg=>celery
Day 2: fruit=>orange, veg=>cucumber
Day 3: fruit=>banana, veg=>bean