Re^2: is there a more simple way to have the intersection of two lists ?

A slight modification should make it work with duplicate elements (untested):

    print $line_2, "\n" if $count{$line_2}-- > 0;
[download]

Comment on Re^2: is there a more simple way to have the intersection of two lists ? Download Code