Select Code to Download

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

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