you might want to throw the date and time back in there, as well

push @{ $mailhash{ $message } }, join(" ", $date, $time, @rest);
[download]

excellent point about separating the reading from the processing.

~Particle