while ($array->[1] =~ /$suchstring/ ) { ......