...
my $commentText = $date . $author . $content;
my %comments = (
  $posturl => [$commentText]
)
...