tie my @file, 'Tie::File', 'file.txt';
$file[0]=$file[0] + 1;
untie @file;