while($i<$lenght_wired) {
    @zeilen = split(//;$wired[$i]);
    $lenght_zeilen = @zeilen;
      while($i_2<$lenght_zeilen) {
        if(ord($zeilen[$i_2]) ne 32) {
     push(@z,$_);
     $i_2++;
    }
       }
}