# while ($a  ) {
 while (length $a  ) {