Select Code to Download

#!/usr/bin/env perl -l

...
        print $identifier unless $seen{$identifier}++;
    }
}

E123456789
G123456798
...
G123456798
G123456789
h1245