tie(my $x1, 'Tie::Scalar::StorageKeyList', file=>'test.bin', key=>'foo', position=>0, value=>0);
$x1++;

tie(my $x2, 'Tie::Scalar::StorageKeyList', file=>'test.bin', key=>'bar', position=>0, value=>0);
$x2++;