$BOOK{$email} = join "\t", $name, $comments, $postime;