while(<$HAN>) {
@arr = <$HAN>;
}