sub CheckNotInNeed
{
	foreach my $found ( keys %g_POIRead )
	{
		unless( $g_NeedKeys{ $found } )
		{
			push( @g_POINewer, $found );
		}
	}
}