Select Code to Download

20055111|YOUSLAV,YURT,TENWIMPL
20011271|YOUSLAV,WUMARTHE
20011541|YOUSLAV,TENWIMPL
20102741|WEDLOFOU,YOUSLAV,YURT,KUPLYSO,TENWIMPL
20155505|YOUSLAV,YURT,TENWIMPL
20147155|YOUSLAV,KUPLYSO,FRIMA

20055111,YOUSLAV,
20055111,YURT,
20055111,TENWIMPL,
...
20147155,YOUSLAV,
20147155,KUPLYSO,
20147155,FRIMA,

sub uniq {
    my %seen;
...
my @filtered = uniq(@cert);

print "@filtered\n";