$dbh->do("CREATE TABLE `games` (`gamename` TEXT, `gamedesc` TEXT, `gamecount` TEXT );");

##</code><code>##

$dbh->do("ALTER TABLE `games` ADD UNIQUE `UNQINDX` ( `gamename` ( 200 ) )");

##</code><code>##

my (@row, $gamename, $gamedesc, $gamecount);

# selecting count(*) will run faster
my $select = $dbh->prepare( "SELECT count(*) FROM `games` WHERE `gamename`=?" );

# column `gamecount` was labeled as `gamecounter`
my $insert = $dbh->prepare( "INSERT INTO `games` (`gamename`, `gamedesc`, `gamecount`) VALUES (?, ?, ?)" );

my $update = $dbh->prepare( "UPDATE games SET gamedesc=?, gamecount=? where gamename=?" );

open (FILE, "<../data/games/descriptions.txt") or die $!;

    while (<FILE>) {
        chomp;
        ($gamename, $gamedesc) = split /\t/;
        $select->execute( $gamename );

        if ($select->fetchrow_array) {

           # WARNING: $gamecount isn't defined!
           $update->execute( $gamedesc, $gamecount, $gamename );
        }
        else {
           $insert->execute( $gamename, $gamedesc, 0 );
        }
    }

close (FILE);