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