sub addSecondary($$)
{
        my ($email, $secondary) = @_;

        open (MYFILE, 'registration.dat');
        while (<MYFILE>)
        {
                chomp;
                my $line = $_;
                if($line =~ /$email/)
                {
                        $line =~ s/nodata/$secondary/gi;
                }
        }
        close (MYFILE);
}