my $string = join ",", sort map { $_->{cat_name} } values %$VAR1;