for (keys %scripts) { $scripts{$_}{execute}=undef; }