open( my $fh, "hoge.txt" );
while(<$fh>){

みたいな書き方をすると、使い終わったあとも$fhが生きてるんだけど
これをどっかブロックに閉じ込めるとしたらどう書くのがいいの？