C
 -2.3242E-003
 1.32423
 0.34243E+002

..etc...

 -3.23134
H
 more numbers

##</code><code>##

C -2.3242E-003 1.32423 0.34243E+002 ... -3.23134
H numbers

##</code><code>##

my $i=0;

while <$input>{
if (/^[A-Z]){
   $AA[$i][0] = $_;
   my $j=1;
   }
else{
   $AA[$i][$j] = $_;
   $j++;
   }
$i++;
}