my @a = map { ${ $_ }[0] ] @S;