# Get the data and store it in a message hash
while (<DATA>) {
    chomp(my ($id,$thread,$from,$date,$content) = split /,/);

    %{$msg->{$id}} = (
        thread  => $thread,
        from    => $from,
        date    => $date,
        content => $content
    );
}