open(IN, $db_file) || die "Cannot read '$db_file': $!\n";
my %birthdays = map { chomp; split ':' } <IN>;
close IN;