while( readline( $Some{compound}{variable}[1] ) ) {
    ...
}