#!/usr/bin/perl
use strict;
use warnings;

my $master = shift;
my $completed = shift;

open my $mh, '<', $master or die "Open fail on $master: $!";
my @master_lines = <$mh>;
chomp @master_lines;

open my $ch, '<', $completed or die "Open fail on $completed: $!";
my @completed_lines = <$ch>;
chomp @completed_lines;

my %count;

for my $element (@master_lines) {
	$count{$element}|=1;
}
for my $element (@completed_lines) {
	$count{$element}|=2;
}

print "$master only:\n";
for my $element (@master_lines) {
	next if $count{$element} & 2;
	print "$element\n";
}

print "$completed only:\n";
for my $element (@completed_lines) {
	next if $count{$element} & 1;
	print "$element\n";
}