>>149
なるほど把握しました。
仕組みまで教えて頂いて感謝です。
そうなると、読み出しの場合はどうなるんでしょうか？

open(FILE, '< '.$file) || die;
while(<FILE>){
　　　　(my $key,$_)=split(/\t/);
　　　　$data->{$key} = $_;
}
close

と

open(FILE, '< '.$file) || die;
@temp = <FILE>;
close
while(@temp){
　　　　(my $key,$_)=split(/\t/);
　　　　$data->{$key} = $_;
}

では、まとめて読み込んでおいた方がHDDにかかる負荷が減ったりしますか？
それともメモリ食うだけでしょうか

>150
どちらが正しいのか判断が・・・