my $storeFile = "/db/users.store.test";
my $users = ();
my $ts;

for (my $i = 0; $i < 2000; $i++){
    $users = retrieve( $storeFile );
    $ts = localtime( time );

    foreach my $KEY ( keys % { $users } ){
        print "#" . $KEY . "#" . $ts . "#\n";
        $users->{$KEY} = $ts;
        store $users, $storeFile;
    }

    usleep(250);
}