foreach $line (@lines) {
    my $id = $line =~ m/ID No: (\d+)/;
    if ($seen{$id}++){
# ...