for my $o (0 .. $#line) {
    select BLA
    print ...
    select STDOUT
}