push @{ $weekly_hash{$i} },"mon","ret","tue","retik","wed","true";
$value_count=grep {defined} values %weekly_hash;
print $value_count;