foreach $d(@dllExeLines) { if( $d =~ m/$serviceName/ ) { foreach $f( split /,/, $d ) { if( $f =~ /$dll/igcgxm ) { push @unique, $dll; } } } } RDup(@unique);