I'd like to add a few things:

First, to filter out the unused ($lite[$something][5]) you can change:

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

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

Second, when you write a loop, you should try to include only the essential stuff in it, so your program runs faster and consumes less resources. so this:

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

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

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