my %control = map { $_ => 1 } split ' ', $4;