#in $ndata steht '35312c38'
$ndataxor = 0;
  @array = split(//, $ndata);
  foreach (@array)
  {	print $ndataxor . " xor ". $_; 
    $ndataxor = $ndataxor^$_; 
	print " -> ". $ndataxor . "\n";
  }