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

my $serialNumbers = $ARGV[0];
my $partNumbers = $ARGV[1];

my @line;
my %partNumber;

open (my $fileTwo, "<", $partNumbers);
while (<$fileTwo>)
	{
		chomp;
		$partNumber{$_} = 1;
	}

open (my $fileOne, "<", $serialNumbers);
while (<$fileOne>)
	{
		@line = split (":", $_);
		print STDERR "$_" if exists $partNumber{$line[0]};
	}