Perl子函数调用——求氨基酸残基两两之间的距离

                                             求氨基酸残基两两之间的距离

实现功能：通过调用子函数，求氨基酸残基两两之间的距离，并通过调用子函数，print出距离最远的一对氨基酸残基。

__DATA__
ATOM   4542  CA  LYS D 130      27.728  42.781 107.352  1.00 53.17           C  
ATOM   4551  CA  VAL D 131      28.783  40.337 110.073  1.00 46.40           C  
ATOM   4558  CA  LYS D 132      30.084  42.479 112.907  1.00 52.26           C  
ATOM   4567  CA  ALA D 133      31.868  41.767 116.183  1.00 53.70           C  
ATOM   4572  CA  LYS D 134      28.704  41.872 118.303  1.00 71.02           C  
ATOM   4581  CA  SER D 135      26.883  39.124 116.249  1.00 78.80           C  
ATOM   4587  CA  ILE D 136      29.774  36.647 116.820  1.00 93.90           C  
ATOM   4595  CA  VAL D 137      28.482  35.979 120.344  1.00117.21           C  
ATOM   4602  CA  PHE D 138      27.994  33.911 123.464  1.00133.01           C  
ATOM   4613  CA  HIS D 139      26.718