#!/usr/bin/perl -w

use strict;

#crappy

open (MYFILE, "2hgs_d00_internal_nrg_e.dat");

my $nrgval = " ";
my $chn = " ";
my $count;
#my $chn[$count];
my $count2;
#my $chn2[$count2]
my @nrg;

open (NEWF, "2HGS_bio_conv-min_p.pdb");

my $toprint = " ";
my $chn2 = " ";

while (<MYFILE>) {
    chomp;                      # avoid \n at the end of each line

    if ($_ =~/ENERGY/) {
        for ($count=1;$count<=1;$count++) {
            $chn = substr $_, 20, 3;
            $nrgval = substr $_, 35, 8;

            while (<NEWF>) {
                chomp;          # avoid \n at the end of each line

                my $j = 0;
                my $i = 0;

                if ($_ =~/ATOM/) {

                    for ($count2=1;$count2<=1;$count2++) {
                        $chn2 = substr $_, 23, 3;
                        $toprint = substr $_, 0, 65;

                        for ($chn=1;$chn<=$chn2;$chn++) {
                            if ($chn==$chn2) {
                                print   " $toprint $nrgval \n";
                            }
                        }
                    }
                }
            }
        }
    }
}

close (MYFILE);
close (NEWF);