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