$VAR1 = { #34k is a ligand, it has several copies of itself #each in a different location (region). #I check to see which copies are overlapping #each other. I store it in a 2D matrix with each #region along the rows and columns '34k' => { #here is one of the regions 'R3' => { #minimal point (also there #is a max). these are used #to make a bounding box. 'min' => [ '-77.33265', '-168.24123', '-109.74781' ], #coordinates, for checking #if there is indeed an #overlap 'coords' => [ [ '44.66735', '-46.24123', '13.05951' ], ... ] ... } #next region 'R7' => { 'min' => [ '-73.66784', '-157.60979', '-103.64599' ], 'coords' => [ [ '48.33216', '-35.60979', '19.32150' ], ... ] ... } ... } #next ligand, same type of data structure as first '34j' => { ... } ... }
[download]