use Tie::File;
tie my @arr, 'Tie::File', 'myfile.dat';
s(1\.00)(5) and last for @arr;
untie @arr;