my %state;
@state{1..9}=();

##</code><code>##

$state{$name} = undef;

##</code><code>##

@state{@names} = (1) x @names;

##</code><code>##

my $count = grep {$_} values %state;

##</code><code>##

my $setname = (grep {$state{$_}} keys %state)[0];

##</code><code>##

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

##</code><code>##

# same as ordinary perl
print $foo if $state{$one} && $state{$tother};