if saetning!

Jeg har et script der gaar ind i min mysql database og hiver en stribe vaerdier ud.

----Kode-----
#!/usr/bin/perl

use DBI;

$user          = "blah";
$password      = "blahblah";
$database      = "webmin";
$hostname      = "localhost";
$port          = "3306";
$dsn            = "DBI:mysql:database=$database;host=$hostname;port=$port";
print "Connecting to mysql database...\n";
$dbh = DBI->connect($dsn, $user, $password);
$getallow = $dbh->prepare("select HTTPallow from users order by userid");
$getallow->execute;

while ( @allow = $getallow->fetchrow_array ) {

if (@allow == '1') {

print @allow," <<=== well... det her er(maaske) 1\n";
}}

$dbh->disconnect;
--------------------------
--------output------------
Connecting to mysql database...
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
0 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
1 <<=== well... det her er(maaske) 1
------------------------------------

Som man kan se er der kun en vaerdi der er 0 men den brude ikke blive skrevet med.... nogen der har en forklaring paa det og hvad jeg skal goere for at det virker ???