my @error =
  map $error_msg{$_},
  grep length(param($_)) >= $error_length{$_},
  @$valids;