my $checkbutton1 = ... -variable => \$check[0], ...; my $checkbutton2 = ... -variable => \$check[1], ...; my $checkbutton3 = ... -variable => \$check[2], ...; my @array = grep { $_ } @check;