Perl: MongoDB update