#!/perl/bin/perl

sub adduser{
	print "\nI am in the adduser array now";
}
#create the array
my @data = (
  { query => 'First Name',},
  { query => 'Firt Name', },
  { query => 'School', },
  { query => 'Phone', },
  { query => 'Position', },
  { query => 'Role', },
);

while (1) {

#greeting
  system("cls");
  print "iT For Dominica User Database:\n",
        "Enter the Number then enter the value.\n";
        
#number the amt of items in list
  for (my $i = 0; $i < scalar @data; ++$i)
  {
    print "\t", $i + 1, ". ", $data[$i]{query}, ": ", $data[$i]{value} || "", "\n";
  }
  print "\t0. Done\n";

  print "Type a number to choose to change: ";
  my $number = <STDIN>;
  chomp($number);
  
  if ($number > 6){
  	    print "Type a number to choose to change: ";
  	 		$number = <STDIN>;
			chomp($number);
			next;
  }
  elsif ($number == 0 || $number > 6)
  {
    last;
  }
  --$number;
  print "\n\nPlease enter your ", $data[$number]{query}, ": ";
  $data[$number]{value} = <STDIN>;
    chomp($data[$number]{value});
};
print "While statement";

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

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