>>423

while (<$fh>) {
chomp;
my($date, $mail) = split /,/;
$mails{$mail} = $date;
}

後は自分で何とかしろ。