perl -e '
use Storable;
my $hashfile="file.hash";
store {}, $hashfile unless -r $hashfile;
my $hash=retrieve($hashfile);
print join(",", %$hash), "\n";
$hash->{"index"}++;
store $hash, $hashfile;
'