for (@positions) {@positions = grep $_->[1] =~ /ac/i, @positions;}

##</code><code>##

 
 @positions = grep $_->[1] =~ /ac/i, @positions;