open FILEHANDLENAME, ">>storage.txt";
print FILEHANDLENAME $name," ",$num,"$email","\n"; 

##</code><code>##

$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";

##</code><code>##

$line=<FILE>;
while ( my $line = <FILE> ) {

##</code><code>##

---------- BEGIN storage.txt ------------
NAME      EMAIL        PHONE
Joe Blow  joe@joe.com  123-1233
Jon Blow  jon@jon.com  345-3455
---------- END storage.txt ------------