open(OUT,">$ziel"); print OUT "set port disable $_\nset port enable $_\n" for @inactive_ports; close(OUT);