my %tocheck = map { $_ => 1 } @tocheck;
for (values(%checkfrom)) {
   @$_ = grep !$tocheck{$_}, @$_;
}