##
firstServer
secondServer
##
##
@a = ();
$file = "bas.txt";
foreach (@a)
{
open(FILE,">>$file") || die "Can't open $file: $! \n";
print FILE "$_\n";
}
close(FILE);
close(DATA);
__DATA__
222.222.333.444:firstServer
121.222.222.222:secondServer