my @newarray = map { $_->[0] } @$ref;