my %days;
  foreach my $channel(@chs){
      @{$days{$channel} } = ();
         share $days{$channel};
}

#and load it like 
push @{$days{$channel} }, $channel;
push @{$days{$channel} }, $count;
push @{$days{$channel} }, $channel_info;
push @{$days{$channel} }, $episode_num;
push @{$days{$channel} }, $start;
push @{$days{$channel} }, $stop;
....etc....
...etc...