in reply to Re: Find duplicate fields and merging data in a text file
in thread Find duplicate fields and merging data in a text file

  $parts{$part}{des} = {} unless exists $parts{$part}{des};
  my %des = %{ $parts{$part}{des} };
  @des{@des} = ();
  %{ $parts{$part}{des} } = %des;

[download]

Or simply: 

    @{ $parts{ $part }{ des } }{ @des } = ();

[download]

In Section Seekers of Perl Wisdom