my @setnames = grep {$state{$_}} keys %state;