my @sorted = map { $_->[0] }