while(<DATA>){
        ($day, $value, $name) = split / /;
        print "$day $value\n";
        ${$m[$day]}{'max'} < $value ?
                (${$m[$day]}{'max'} = (2* $value),
                 ${$m[$day]}{'bytes'} += (2* $value),
                 ++${$m[$day]}{'files'}):(
                 ${$m[$day]}{'bytes'} += (2* $value),
                 ++${$m[$day]}{'files'})
        ;
}