sub check_dcr {
	
	my(@keys) = keys %temp_dcr;
	
	foreach $key (@keys) {
			
		if ("$temp_dcr{$key}{RightNavLaunchDate}" le $today) {

			if ("$temp_dcr{$key}{ShowPersonal}" eq "Personal") {

				$pers_dcr_files{$key} = $temp_dcr{$key};
			}

			if ("$temp_dcr{$key}{ShowHome}" eq "Home") {

				$home_dcr_files{$key} = $temp_dcr{$key};
			}
			
			if ("$temp_dcr{$key}{ShowBusiness}" eq "Business") {

				$bus_dcr_files{$key} = $temp_dcr{$key};
			}

		} # End if statement to check for Launch Date

	} # End foreach loop to check all keys in the temporary hash

} # End routine to check the temp hash and send out keys to specified hashes