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

##</code><code>##

this comment: $VAR1 = {
          'title' => 'Kommentarens tittel 5',
          'content' => 'Dette er kommentar fem',
          'user' => {
                      'username' => 'bamse',
                      'name' => ''
                    },
          'storyname' => 'test1',
          'timestamp' => '2003-03-07 00:00:00+01',
          'sectionid' => 'tester',
          'commentpath' => '/bamse'
        };

##</code><code>##

comment: $VAR1 = bless( [
                 {
                   'HASH(0x85380bc)' => 0
                 },
                 [
                   {
                     'title' => 'Kommentarens tittel 5',
                     'content' => 'Dette er kommentar fem',
                     'user' => {
                                 'username' => 'bamse',
                                 'name' => ''
                               },
                     'storyname' => 'test1',
                     'timestamp' => '2003-03-07 00:00:00+01',
                     'sectionid' => 'tester',
                     'commentpath' => '/bamse'
                   }
                 ],
                 [
                   undef
                 ],
                 0
               ], 'Tie::IxHash' );