(...)
my @bigram_exist;

for (i=0 ; i<=@bigram_list ; i++) 
      {
      if ( $bigram_str =~ m/$bigram_list[i]/
           {
           $bigram_exist[i]= 1 ;
           }
      else 
           {
           $bigram_exist[i] = 0;
           {
      }