my %res=("00"=>0, "01"=>1,"10"=>1,"11"=>0);
my $tmpres=1;
foreach (@list) {
  $tmpres=$tmpres && $res{substr($string,$_-1,2)};
}
return tmpres;