Select Code to Download

my %h;
my @a = map { [@{ $_ }[0]] } @S;
...
print Dumper(%h);
print "or\n";
print Dumper(\%h);

$VAR1 = {
          'ARRAY(0x8411210)' => [
...
                                  'c'
                                ]
        };