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

##</code><code>##

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

##</code><code>##

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}


my @cert = qw( 

 20055111 YOUSLAV  20055111 YURT  20055111 TENWIMPL  20011271 YOUSLAV  20011271 WUMARTHE  20011541 YOUSLAV  20011541 TENWIMPL  20102741 WEDLOFOU  20102741 YOUSLAV  20102741 YURT  20102741 KUPLYSO  20102741 TENWIMPL  20155505 YOUSLAV  20155505 YURT  20155505 TENWIMPL  20147155 YOUSLAV  20147155 KUPLYSO  20147155 FRIMA 
);

my @filtered = uniq(@cert);

print "@filtered\n";