Select Code to Download

use PDL; 
use PDL::Char;                                                        
+          
...
  my @diff=which($match!=$source)->list;                              
+          
  print "@diff\n";                                                    
+          
}

use PDL; 
use PDL::Char;                                                        
+          
...
  my @diff=which($match!=$source)->list;                              
+          
  print "@diff\n";                                                    
+          
}