in reply to Increment DB using Perl

There's a bug in your code somewhere between while ( and }.