@matrix=([0,1,2],[3,4,5],[6,7,8]);
for $l (0..2){
  for $k (0..2){
    unless ($k==$l){
      for $j (0..2){
        unless (($j==$k) || ($j==$l)){
          print "mach was mit $matrix[0][$l], $matrix[1][$k], $matrix[2][$j]\n";
        }
      }
    }
  }
}