#!/pfad/zu/perl @IP=(IP); open(HTACCESS,">>.htaccess"); foreach $IP (@IP) { print HTACCESS "$IP\n"; } close(HTACCESS);