Shortcut to print this data???

I want the parameters to be different but instead it keep on printing the same parameter for me. This is consider as 1 parameter:
XB8B_Amodul
_R1K_R_Rmea

And also, I want for each parameter,
there are to be 5 values for each different parameter. And I am require to print for a row at least 6 parameters which are all different.
How do i achieve that?
If this is unclear to you,please take a look at my code,my incorrect output and my actual output(I provided part of it).

Thanks a lot!!!

My incorrect output:

XB8B_Amodul XB8B_Amodul XB8B_Amodul
_R1K_R_Rmea _R1K_R_Rmea _R1K_R_Rmea
...........................

1.003E+03   3.980E-08   4.994E-04

XB8B_Amodul XB8B_Amodul XB8B_Amodul
_R1K_R_Rmea _R1K_R_Rmea _R1K_R_Rmea
...........................

9.943E+02   3.994E-08   4.968E-04

XB8B_Amodul XB8B_Amodul XB8B_Amodul
_R1K_R_Rmea _R1K_R_Rmea _R1K_R_Rmea
...........................

1.000E+03   3.949E-08   4.979E-04


I want the output to be like this(I provided only 3 values n 3 parameters):

XB8B_Amodul XB8B_Amodul XB8B_Amodul
 _R1K_R_Rmea _MFA1_FETCH _MFA1_FETCH
......................................

 1.003E+03   3.980E-08   4.994E-04  
 9.943E+02   3.994E-08   4.968E-04  
 1.000E+03   3.949E-08   4.979E-04

XB8B_Amodul XB8B_Bmodul XB8B_Bmodul
 _MFA2_VT_Vt _MFB1_VT_Vt _MFB2_VT_Vt
.......................................

 2.480E+00   2.484E+00   2.484E+00  
 2.493E+00   2.487E+00   2.491E+00  
 2.487E+00   2.495E+00   2.481E+00  


My codes:


open(NEWFILE,">plusfile");
format NEWFILE =
@<<<<<<<<<<<@<<<<<<<<<<<@<<<<<<<<<<
 $testPara1[$_],    $testPara1[$_],   $testPara1[$_]
@<<<<<<<<<<<@<<<<<<<<<<<@<<<<<<<<<<
 $testPara2[$_],    $testPara2[$_],   $testPara2[$_]
...........................

@<<<<<<<<<<<@<<<<<<<<<<<@<<<<<<<<<<<<
sprintf("%.3E",$info1[$_]),   sprintf("%.3E",$info1[$_+1]),    sprintf("%.3E",$info1[$_+2])

.

open(FILE,"tablefile5");
@file1 = <FILE>;
foreach(@file1)
{
  if(/.*!.*!.*!.*!/)
  {
    ($str1,$str2,$str3,$str4) = split(/!/,$_);
    push(@stuff,$str1);
    $para1 = substr($stuff[$_],0,11);
    push(@testPara1,$para1);
    $para2 = substr($stuff[$_],12,11);
    push(@testPara2,$para2);
  }
  push (@info1,/!\+([0-9E.+\-]+)/g) if(/SYS_WAFERID!01/.../SYS_WAFERID!01/);
  push (@info2,/!\+([0-9E.+\-]+)/g) if(/SYS_WAFERID!02/.../SYS_WAFERID!02/);
 
}
for(0..$#info1)
{
write NEWFILE;
}
close(FILE);
close(NEWFILE);