Select Code to Download

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

use warnings;
use strict;
...
}
my $string = join ",", map { $data->{$_}{cat_name} }
    $g->topological_sort;