foreach my $name (@names) { 
    my $name = $S{$name};
}