do_something() if (grep /something/, @array);

##</code><code>##

foreach (@array){
	&do_something() and last if /something/;
}