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;
    }
}

##</code><code>##

for (my $i = 0; $i < @in; $i += 14) {
    my $num = $in[$in[$i+12] * $MaxAgc0;
    $num = $num / $in[$i+10];

    foreach (2 .. 9) {
        push @powers, ($in[$i + $_] - $num) / 100;
    }
}