# Nur bestimmte Parameter erlauben
my %valipar = ();
my @inpar = $self->param;
@valipar{@inpar} = @inpar;
# erlaubte Parameter löschen
delete @valipar{qw(find week year)};
# was übrigbleibt ist bad request
return $self->noparam
if keys %valipar;
Und wie löst Du sowas? MfG