Select Code to Download

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

sub filter_by_pat {
   my $pat = shift;
...
}

filter_by_pat [0,1,1,0], ...