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