while(  ( $home, $user )= @results[7,0]  ) {
        ...
    }