my $id = 1;

my $output="data.txt";
open(DAT,">>$output") || die("Cannot Open File");

print DAT ($id++);
print DAT (":");
print DAT ($name);
print DAT (":");
print DAT ($number);
print DAT (":");
print DAT ($address);
print DAT (":");
print DAT ($phone);
print DAT (":");
print DAT ($email);
print DAT ("\n");

close (DAT);