教えていただけないでしょうか。
log.txtを開いてハッシュとしてセットの上、ペアごとにズラズラ並べたいのですが、

open(f,"log.txt");
%file = <f>;
while ( ($key, $val) = each (%file) ) {print "キー $key 値 $val\n";}
close(f);

これだと何も反応してくれません。
間違ってるでしょうか？

log.txtの中身は、
"●●","Ａ組","◎◎","Ｂ組","■■","Ｃ組",

といった感じです。