open (FILE, ">>data2.txt");
print FILE ("$name | $country | $phone\n");
close FILE;