Select Code to Download

my @valid = qw/buttons action foo bar xyz/;
my %args = (
...
while (my ($k,$v) = each %args) {
   ## etc...
}

my @valid = qw/buttons action foo bar xyz/;
my %args = (
...

    print "$k => $v\n";
}