@username = grep /^$usernameentered$/, @row;

Will give you a list of all the columns containing only $usernameentered (note the ^ and $).

unless (@username) {
    print "incorrect username entered @username\n";
}
[download]