#if the fields are not filled in do this
while(scalar @data{value} eq ""){

	&adduser;#goes back to asking for array members
	
  }do(@data{value} != "" || null){				#if the Values are present Print 'em
		for ($c1 = 0; $c1 < scalar @data; ++$c1){
			print "The", $data[$i]{value} . "\n";
		}#end of for();
	
   };#end of else{};