Anonymous

    if ( defined $OUTPUT{"$year$monthnum"} ) {
	print $OUTPUT{"$year$monthnum"} $line;
    } else {
	$OUTPUT{"$year$monthnum"} = new FileHandle "bydate/unsorted.$year$monthnum", ">>";
	print $OUTPUT{"$year$monthnum"} $line;
    }