for @text <-> $line {
    ...
}