Select Code to Download

#!/usr/bin/perl -w

...
foreach my $key (keys %count) {
  print "$key appears in both arrays\n" if $count{$key} == 2;
}

$ ./foo.pl 
a appears in both arrays
e appears in both arrays

#!/usr/bin/perl -w

...
    shift @sort2;
  }
}

$ ./bar.pl 
a is in both arrays
d is in both arrays
e is in both arrays