Select Code to Download

Select or download this

use strict;
use warnings;
...
foreach (@filtered_AoH) {
  printf "$template\n", @{ $_ }{@field_names};
}

Select or download this

PdbId MetalAtm MetalName MetalNumber MetalChn AtmName ResName ResNumbe
+r ResChn Distance
 1nc7       MG        MG        1501        -      CL      CL      140
+1      -    3.065
...
 2oa9       CD        CD         913        -      CL      CL       80
+1      -    2.403
 99zz       CD        CD         911        -      CL      YY       80
+0      -    2.291
 99zz       CD        CD         913        -      CL      YY       80
+1      -    2.403

Select or download this

PdbId MetalAtm MetalName MetalNumber MetalChn AtmName ResName ResNumbe
+r ResChn Distance
 1nc7       MG        MG        1501        -      CL      CL      140
+1      -    3.065
 1nc7       MG        MG        1501        -      CL      CL      140
+2      -    2.660
 2oa9       CD        CD         911        -      CL      CL       80
+0      -    2.291
 2oa9       CD        CD         913        -      CL      CL       80
+1      -    2.403