#!/usr/bin/perl -w
use strict;

my %set;
my @list1 = qw(education production results);
my @list2 = qw(education joe bob carl production steve results tests);
@set{@list2} = @list2;
delete @set{@list1};
print map {"$_\n"} keys %set;