Select Code to Download

my @hITS;
while (<CBLAT>) {
...
for (@hITS) {
    print $_->[0], "\n";
}

my @hITS;
while (<CBLAT>) {
...
for (@hITS) {
    print "score: $_->{score}  qID: $_->{qID}\n");
}