$ perl 11103674.pl

 Records processed: 5
Duplicates removed: 2
ok 1 - Input read OK
ok 2 - Correct number of records kept
ok 3 - File has correct count for "GN"
ok 4 - File has correct count for "TUFA"
ok 5 - File has correct count for "Blorgle"
ok 6 - File has correct count for "Blargle"
1..6