fejl i perl-script

Jeg har dette perl-script der henter nogle data'er udfra en mysqldatabase, det virker også fint, men hvis $created = 0 ryger den ikke ind i if-sætningen, hvorfor ikke det.

Det er en int i databasen

<Perl>
use DBI;
my ($sth, $dbh, $domain, $domainID, $created, $sql);
$dbh = DBI->connect("DBI:mysql:xxx:xxx","xxx","xxx");
$sth = $dbh->prepare("SELECT * FROM domain ORDER BY domainID ASC");
$sth->execute();
while (($domainID, $domain, $created) = $sth->fetchrow_array())
{
        if($created == false)
        {
                system("/bin/mkdir /home/$domain");
                system("/bin/mkdir /home/$domain/www");
                system("/bin/mkdir /home/$domain/ErrorLog");
                system("/bin/chown apache:apache -R /home/$domain");
                $sql = $dbh->prepare("UPDATE domain SET created = 1 WHERE domainID = $domainID");
                $sql->execute();
        }
        push @{ $VirtualHost{'*:80'} },
                {
                ServerName    => "$domain",
                ServerAdmin    => "postmaster@$domain",
                ServerAlias    => "www.$domain",
                DocumentRoot  => "/home/$domain/www",
                ErrorLog      => "/home/$domain/ErrorLog/$domain-error_log",
                };
}
$sth->finish();
$dbh->disconnect();
</Perl>