sub checkData
{
   my $zero = 0;
   my $space = ' ';
   
	if($Coverage_limits.length lt 11)
	{
	   $Coverage_limits = '           ';  

	}
	
	if($Reserve_1)
	{
		   $Reserve_1 = '          ';  
	}
	
	if($Coverage_entry_date != "")
	{
	   my $year = substr(@row[3], 2, 2);
	   my $month = $zero.@row[4];
	   my $day = $zero.@row[5];
	   
	   $Coverage_entry_date = $year.$month.$day;	
	}


}