Select Code to Download

my @file1 = qw{1 2 3 4  }; 
my @file2 = qw{  2 3 4 5}; 
...
  $v==$seen{$_} and print qq[$n :$_\n]  
      for sort keys %seen
}

File-1 only :1
File-2 only :5
Both have :2
Both have :3
Both have :4