for ($i <= $#text) {
  $i += 1;
push @temp, ($text[$i]);
}