$infile="hosts.txt";
open(INPUT, $infile) || die "Error opening $infile\n";
my @allhosts = <INPUT>;
foreach $approvhost (<STDIN>)
	{
	foreach $host (<@allhosts>)
		{
		if ($host =~ m/^$approvhost/)
			{
			print $host;
			}
		}
	}