$delm  = ';;';
@array = ('val1','val2','IchTanze','AusDerReihe','val4','val5');
$such  = 'IchTanze;;AusDerReihe';

unless (index( $delm.join($delm,@array).$delm, $delm.$such.$delm ) == -1 ) {
   print "Gefunden ... !";
}