You'll be close if you change this line

#$method_line = $_;    #lines with the methods/results for each one
$method_line = $lines[$i];
chomp($method_line);
[download]

and this

#unshift @AoA, [ @methods ];
unshift @AoA, [ @split_header ];
[download]

poj