while ( <FH> ) {
    $hash->{ $. } = [ split ];
}