my %days;
my @chs = qw (1..30);
my $max_prog_chan = 60;

 foreach my $channel(@chs){
   foreach my $count(0..$max_prog_chan){
         share $days{$channel}{$count};
    }
}