@a = (<DATA>);
$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