#!/usr/bin/perl

use strict;
use warnings;

my %seen;

while(<>){
  $seen{$_} .= @ARGV;
}

for(keys(%seen)){
  print if($_ !~ /10$/);
}