Help for this page

Select Code to Download

Select or download this

while (<DATA>) {
    my @pieces = split /\s+/;
...
    $results{$id} = [] unless exists $results{$id};
    push @{$results{$id}}, $seq;
}

Select or download this

 $results{$id} = [] unless exists $results{$id};