use DB_File;
use Storable;
tie %data_parsed, "DB_File", "$hashfil", O_RDWR|O_CREAT, 0666;

# inside read data loop
$data_parsed{$key} = freeze($array_ref);

# inside use data loop
$array_ref = thaw($data_parsed{$key});