my $comment = Tie::IxHash->new(${$comments}{$key});

##</code><code>##

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

##</code><code>##

tie (%comments, Tie::IxHash);
warn ("comment " . Dumper($comments{$key}));