in reply to Having a problem replacing "@" with "\@"

Why don't you use a substitution? 
$$email[0] =~ s!@!\\@!;

[download]
Doesn't this work?

Alberto Simões

In Section Seekers of Perl Wisdom