sub validateNames{ 
  my $valid_names=shift; 
  print $valid_names->{SCM555}->{email};
  print $valid_names->{SCM556}->{name};
}