#! /usr/bin/perl

use strict;
use warnings;

open SIG, 'signal.txt' ;
chomp( my @sig = <SIG> ) ;
close SIG ;

open ORD, 'orderednames.txt' ;
my %names_hash ;
$names_hash{$_} = 1 foreach map { split } <ORD> ;
close ORD ;

my @results = grep { !$names_hash{$_} } @sig ;

print join( ':', @results ), "\n" ;