for (my $i=0;$i<=$#ary; $i++){   
    print "==>$ary[$i][0]\n";
   # print "==>@{$ary[$i]}[0]\n";
   # print "==>$ary[$i]->[0]\n";
    }