for (my $i = 0; $i < @in; $i += 14) {
    my $num = $in[$in[$i+12] * $MaxAgc0;
    push @Attn, $num / $in[$i+10];
}
for (my $i = 0; $i < @in; $i += 14) {
    foreach (2 .. 9) {
        push @powers, ($in[$i + $_] - $Attn[$i/14]) / 100;
    }
}