#!/usr/bin/perl

open (F1,"file1") || die;
while (<F1>) {
	chomp;
	$list1{$_}=1;
}
close (F1);

open (F2,"file2") || die;
while (<F2>) {
	chomp;
	$list2{$_}=1;
}
close (F2);

foreach $i (sort keys %list1) {
	if ($list2{$i} == 0) {
		print "$i is in file1, but not in file2\n";
	}
}

foreach $i (sort keys %list2) {
	if ($list1{$i} == 0) {
		print "$i is in file2, but not in file1\n";
	}
}