Select Code to Download

#! perl -slw
use strict;
...

print @{ $hits[0] } -1;
print $posId{ $_ } for @{ $hits[0] }[ 1 .. $#{ $hits[ 0 ] } ];

C:\test>Bilateral2.pl
20
...
2000
2010
2040