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

##</code><code>##

eg: @newarray= ....