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