$datafile = '/full/path/to/storage.txt';  #somewhere near the top
...
open FILEHANDLENAME, ">>$datafile" or die "Couldn't open $datafile for appending: $!";
print FILEHANDLENAME "$name $num $email\n";