for $i (0..$#{$ref})
{
    print $ref->[$i]->[0];
}

##</code><code>##

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