Select Code to Download

my $valid_names = &validateNames(\$names);

my $valid_names = &validateNames($names);

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