I have found the problem. I've replaced a Storable DB driver with a SQLite driver and my code is now working.

my $dbh = DBI->connect('dbi:SQLite:dbname=hist_mod.db');
[download]

I am not sure what was the reason to my problems with Storable DB, but for my task it does not meter which type of DB to use.

Thanks to everybody for your help and suggestions