push(@words_bi,  $words[$_-1] . $words[$_]  );