my %allowed = map ( $_ => 1 } qw/ name user host command/; 

for my $cmd (@commands) {
  my $badkeys=''; 
  for my $key (keys %$cmd) { 
    unless ($allowed {$key) {$badkeys.=' '.$k} 
    } 
  if ($badkeys) { 
    print 'skipping due to badkeys found:'.$badkeys."\n"; 
    next; 
    } 
  if ($state->{status} eq 'success') {
...