for my $elem ( @array ) {
    print "$elem->[0]\n";
}