さほど大きくない複数のファイルがあり、
その中身を hash にぶち込んで置いて後で使いまわそうとか考えているのですが、
私が考えたモノがどうもピンと来ないのです。もしよりスマート(で美しい)な方
法があれば、ご教授頂けませんでしょうか。
# ここをこうすると激しく読みやすいyoとか
# ここをこうするとコード短縮だ！とか(^^;
# 出直して来ぃ！とか

%filedata=();
@filelist=qw(hoge.dat fuga.dat foo.txt);
foreach(@filelist){
　　open FILEHANDLE,"$_";
　　@{$filedata{$_}}=<FILEHANDLE>;
　　close FILEHANDLE;
}

# 利用例
print foreach @{$filedata{$filelist[1]}};
print ${$filedata{$filelist[2]}}[3];
@array=split /,/,${$filedata{$filelist[0]}}[0];