my %bucket;
    map {push @{$bucket {$_ -> {fld_type}}} => $_} @advocates;
    my @sorted = map {@{$bucket {$_}}} qw /Local State National/;