my %checks = (var1=>'foo', var2='bar', var3=>'qux' );
my %params = q->Vars;
complain() 
    unless keys %checks 
    == grep{ $param{$_} eq $checks{$_} }keys %checks;