Select Code to Download

my %seen;
for my $row (@data) {
    my ($id) =~ /^(\d+):/ or die "bad line: [$row]";
...
}

print $seen{$_}, "\n" for sort {$a<=>$b} keys %seen;