use Tie::File;

my $filename = '/tmp/myfile.index';

tie my @index, 'Tie::File', $filename or die "Cannot open '$filename' because: $!";
++$index[ 0 ];
untie @index;