in reply to Edit varaibles in file

Personally, I think I'd take this approach:

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

[download]

_______________
DamnDirtyApe 
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

In Section Seekers of Perl Wisdom