my $result = "all";

my %button = (
  all  => "notselected",
  none => "notselected",
);

print "$button{$result}\n";

$button{none} = "selected";

$result = "none";

print "$button{$result}\n";