#!/usr/bin/perl -w

use strict;

my $FALSE			= 0;
my $TRUE			= 1;
my $Flag			= $TRUE;
my $NumbersList			= "<" . "NumbersList";
my $LookingForTheseNumbersList	= "<" . "LookingForTheseNumbersList";

open NUMBERSLIST, "NumbersList" or die $!;
open LOOKINGFORTHESENUMBERSLIST, "LookingForTheseNumbersList" or die $!;

if ($Flag == $TRUE) {
	foreach my $Line (<NUMBERSLIST>) {
		#print "Numbers list number = : $Line";
		&FlagEqualsTrue($Line);
	}
}

sub FlagEqualsTrue {
	(my $LookingForNumber)	= @_;
	foreach my $Line (<LOOKINGFORTHESENUMBERSLIST>) {
		chomp $Line;
		next if ($Line =~ m/^These/);
		next if ($Line =~ m/^This/);
		next if !($Line =~ m/^$LookingForNumber/);
		print "$Line\n";
	}
}
exit;