my %comments;
...
push @{$comments{$post_url}}, $comment;

##</code><code>##

for my $c (@{$comments{$post_url}}) {
    print "$c\n";
}