$h{$xy} = [$_->[0], $_->[1]];

##</code><code>##

$h{$xy} = [$_->[0], $_->[1]] if $_->[5];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'