for ( 1...31) {
    open(FH$_, ">200712$_"), or die "Could not open $date $!\n";
}