Select Code to Download

    warn ("this comment: " . Dumper(${$comments}{$key}));
    my $comment = Tie::IxHash->new(${$comments}{$key});
    warn ("comment: " . Dumper($comment));

this comment: $VAR1 = {
          'title' => 'Kommentarens tittel 5',
...
          'sectionid' => 'tester',
          'commentpath' => '/bamse'
        };

comment: $VAR1 = bless( [
                 {
...
                 ],
                 0
               ], 'Tie::IxHash' );