Select Code to Download

sort file1 > file1.sorted
sort file2 > file2.sorted
comm -12 file1.sorted file2.sorted | sort | uniq > result.txt

system ("sort file2 > file2.sorted");
system ("sort file1 > file1.sorted");
my $result = `comm -12 file1.sorted file2.sorted | sort | uniq`;