foreach my $category (sort { ($list->{$_}->{cat_name} cmp $list->{$_}->{cat_name}) } keys %$list) {
  say $list->{$category}{cat_name};
}