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