Select Code to Download

    my $how_many = 10;
    while (<$fh>) {
        if (/^(.+?)\|(.+?)\| (.+?)\s+(\d+)\s+(\d+e[+-]\d+)$/) {
...
            last if --$how_many == 0;
        }
    }

    my @hits; # Keys in order
    my $how_many = 10;
    while (<$fh>) {
...
        printf "%-5s %-55s %5s\n",
            $_->{col1}, $_->{desc}, $_->{score};
    }