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