if (@username !=$usernameentered)
{
print "incorrect username entered @username\n";
}