GREAT PROBLEM with script to STORE in SDBM file

Dear,
I have a problem with a script, when one has to script.pl store the message $var to the database opened up as:

dbmopen(%box, $inbox, 0600);
if (!($box{'MESSAGES'})) { $box{'MESSAGES'} = "0"; }
@messagelist = split(/t/, $box{'MESSAGES'});
$nextmess = greatest(@messagelist);
$nextmess++;
$box{$nextmess} = $message; <--"HERE CRASH the script".
$box{'MESSAGES'} .= "t$nextmess";
dbmclose(%box);


the information of the error appears is:

sdbm store returned -1, errno 22, key "5" at
/home/httpd/html/server1/cgi-bin/files/script.pl line
110, <STDIN> chunk 139.


this error takes place when the variable $message is very big (1024)??? certain that is???

need reinstall the PERL or some module (DBM, SDBM) ??


is there some solution for this great problem?? please
help me.

i have perl 5.4 on linux redhat


thank you for all
!!!!!!!!!!!!!!!!

can I see some more of the script?