DB<126> $array
 => [
  { name => "Discount", reference => "100       ", type => "Paper" },
  { name => "Documents", reference => "100       ", type => "Paper" },
  { name => "Money", reference => "340       ", type => "Plastic" },
  { name => "State", reference => "40        ", type => "Cotton" },
  { name => "Slice", reference => "30        ", type => "Cotton" },
  { name => "Part", reference => "45        ", type => "Cotton" },
]
  DB<127> push @{ $hash{$_->{type}} }, $_->{name}  for @$array;

  DB<128> \%hash
 => {
  Cotton  => ["State", "Slice", "Part"],
  Paper   => ["Discount", "Documents"],
  Plastic => ["Money"],
}