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