for (@array)
        {
                s/0;nodata/1;$secondary/gi if /$email/
        }


##</code><code>##

        for my $_ (@array)   # 'my $_' is a little bit of a fudge
        {
                $_ =~ s/0;nodata/1;$secondary/gi if $_ =~ /$email/
        }