use feature 'say';

my $output = "data.txt";
open(DAT, '+<', $output) || die("Cannot Open File");
my $id;
while (<DAT>) {
    ($id) = m/\A(\d+):/;
}

say DAT join ':', ++$id, $name, $number, $address, $phone, $email;

close(DAT);