Select Code to Download

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

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