i=0for ..do....done |while read worddowhile [ -n $word ]do tmp=$wordword=${word#?}char=${tmp%$word}longarray[$i]=$chari=$((i + 1)donedone