foreach $uniqu (@uniqu){
  my %hash;
  ...(process each key/value)...
  undef %hash;
}