Select Code to Download

$ ./11148698-00.pl
id  name
123 john
11  peter
87  helen

#!/usr/bin/env perl

...
    $seen{ $part[1] }++;
}
print qq{\n};