Select Code to Download

#! /usr/bin/perl
use strict;
...
    }   
    return \%hash_pdb;
}

$VAR1 = {
          'PRO A' => '6',
          'TRP A' => '7'
        };