Perl Script Question

I have a question regarding a SQL statement that I have in my perl program.

I am using the following code:
# SQL scalar
my ($SQL);

# Scalars for database columns
my ($userid, $username, $useremail, $userpwd, $useroffice);

# Initialise the values for an example request
$userid = "5";
$username = "alice";
$useremail = "alice@yahoo.com";
$userpwd = "blah2000";
$useroffice = "san antonio";


$SQL = "INSERT INTO users (userid, username, useremail, userpwd, useroffice) VALUES ('$userid', '$username', '$useremail', '$userpwd', '$useroffice')";

# Run the SQL query
if ($db->Sql($SQL))
{
print "Error on SQL INSERT
";
Win32::ODBC::DumpError();

} # End if

print "<p>Running: $SQL<br>
";
print "Note: $username has been created
";


if you notice the useremail section includes a '@' character. This is not going to display the result that I want. How do I get perl to print the full email address correctly.

Right now, the result looks like this:

5 alice alice.com blah2000 san antonio

but I want it to display alice@yahoo.com

Any suggestions?
Thank You.
-Laura