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