- or download this
> while ($i < $num) {
> $sortedKeys[$i] = $i;
> $i++;
> }
- or download this
@sortedKeys = (0 .. $num - 1);
- or download this
> next unless defined %{$matches{$fasta_id}};
> last unless defined @{$matches{$fasta_id}{$site}};
- or download this
> # as @fastarray is global, this will have global effect, and we do
+not need to return it.
>
> @fastarray=@newfast;