my %h = map { $_->[0] => $_->[1] } @S;
print Dumper(\%h);