open(MYFILE, $data_file) || die("Could not open file!");
$b=$between=$energy=0;
while (<MYFILE>) {

   foreach $line (<MYFILE>)
{
if (/\bENERGY\b/) 
	{
       ++$energy;
		#print "$energy\n";
@line = $line;
(@line[0],@line[1],@line[2], @line[3], @line[4], @line[5], @line[6])=split(/\s+/,$line);
if(@line[2] ne ENERGY)
 {
 
 if (@line[3] != 0)
 {
 print "@line[1]  @line[3] \t $energy\n";
 }
 
 if (@line[4] != 0)
 {
 print "@line[1]  @line[4] \t $energy\n";
 }
 
 if(@line[5] != 0)
 {
 print "@line[1]  @line[5] \t $energy\n";
}
}
}
}
}
close(MYFILE);