my $file = "data.txt";
open FILE, "<$file";
@lines = <FILE>;
close FILE;

$id = @lines;
$id++;

open DAT, ">>$file";
print DAT ("${id}:${name}:${number}:${address}:${phone}:${email}\n");
close DAT;