BEGIN{while((getline<"index.list")>0){ind[++i]=$0};RS="";ORS="\n\n"}  #read in index.list
     {rec[++j]=$0}                                         #read bib file 
END{for (i=1;i<=length(ind);i++){print rec[ind[i]+0]}}     #print in order of index.list