my @handles;
for ( 1...31) {
    open(my $new_fh, ">200712$_"), or die "Could not open $date $!\n";
    push @handes, $new_fh;
}