dbmopen doesn't work

[Bruno Negrao]

Hi all,
Could someone say to me why this program doesn't run? (it doesn't print the database 
values)

#!/usr/bin/perl -w
dbmopen(%a,"testdb",0666) || die "couldn't create/access the file $!";
$a = $b = 0;
until ($a < 20){        # create items in the testdb.db file
    $a{key$a} = $b;
    $a = $b++;
}
while ( ($key,$value) = each(%a) ) {
    print "$key $value\n";   # this is not printing anything!!
}

I'm using a RedHat 6.2. Perl 5.

thank you,
-------------------------------------------------
 -- Bruno Negrão -- Suporte
 -- Plugway Acesso Internet Ltda.
 -- (31)34812311