open(MYFILE, $data_file) || die("Could not open file!");


my $energy;
while ( <MYFILE> ) {
    if ( /\bENERGY\b/ ) {
        ++$energy;
        next;
        }
    my ( $key, @fields ) = grep $_, split;
    for my $field ( @fields ) {
	if (@fields[2] ne G || A || C || G)
	{
        print "$key $field $energy\n";
        }
    }
	}