You could perhaps do it like this:

use Tie::File;

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

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