foreach my $ID (sort keys %ocurrences) {
    print $lines{$ID}, "\t", $ocurrences{$ID}, "\n";
}