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