Select Code to Download

use Tie::File;

...
tie @data, Tie::File, $filename or die "Can't tie to $filename :$!\n";