my @cur_data=<FILE1>; 
close (FILE1);
my @org_data=<FILE2>;	
close (FILE2);
	foreach $org_data(@org_data)
		{
			$flag= 1;
			foreach  $cur_data(@cur_data)
				{	
					chomp ($cur_data);
					chomp ($org_data);
						if (  $cur_data eq $org_data  )
							{
							$flag= 0;
							last;
							}
		}
	if ($flag == 1) 
		{
			print " \n $org_data -->failed\n";
			last;
		}
	 }
return $flag;