my %data;
while (my $rec = fetch_record($fh)) {
    my $id = $rec->{id};
    push @{$data{$id}}, $rec->{sequence};
}
for my $id (keys %data) {
    print "$id ";
    print "$_\n" for @{$data{$id}};
}