#! perl

use strict ;
use warnings ;
use Set::Scalar ;

my $signal = Set::Scalar->new ;

open INFILE, "<signal.txt" or die "can't open file" ;
my @signal_list = <INFILE> ;
close INFILE ;

chomp @signal_list ;
$signal->insert( @signal_list ) ;

my $orderednames = Set::Scalar->new ;

open DATA, "<orderednames.txt" or die "can't open sentences" ;
while ( <DATA> )
{
    my @tokens = split( /\t+/, $_ ) ;
    foreach my $token ( @tokens )
    {
        $orderednames->insert( $token ) ;
    }
}
close DATA;

print "In signal:\n" ;
print $signal, "\n\n" ;

print "In orderednames:\n" ;
print $orderednames, "\n\n" ;

print "In signal, but not in orderednames:\n" ;
print $signal - $orderednames, "\n\n" ;

exit;