@{$dat[$i]} = <FH>;