for (@$array){
  print $_->[1][3]."\n";  #remember indici start at zero
}