@a[ grep { $pat[ $_ % @$pat ] } 0..$#a ]