আমি একটা পাগোল ভুত //////////need code explation////////// package SillyFunction; sub group_products { my $products = shift; my r;and_type = (); my $grouped_products = []; foreach (@{$products}) { $brand_type{$_->{brand}} ||= {}; $brand_type{$_->{brand}}->{$_->{type}} = 1; } foreach (sort keys r;and_type) { my $brand = $_; foreach (sort keys %{$brand_type{$brand}}) { push(@{$grouped_products}, { brand => $brand, type => $_}); } } $grouped_products; } 1;