#!/usr/bin/perl

@p1;
@p2;

open FILE, "<disjoint.only.sorted";
foreach (<FILE>) {
  chomp;
  push @p1, $_;
}
close FILE;
open FILE, "<p3.sorted";
foreach (<FILE>) {
  chomp;
  push @p2, $_;
}
close FILE;

while (scalar @p1 > 0 and scalar @p2 > 0) {
  if ($p1[0] eq $p2[0]) {
    print "$p1[0]\n";
    shift @p1;
    shift @p2;
  } elsif ($p1[0] cmp $p2[0] < 0) {
    shift @p1;
  } else {
    shift @p2;
  }
}
print "Done!\n";