#!/usr/bin/perl
use Modern::Perl;
use Data::Dumper;

# 942489

my @in= qw/1 2 3 4 5 6 7 8 9 10 11 1.155031267e-5 13 14
           101 102 103 104 105 106 107 108 109 110 111 1.13 113 114
           181 182 183 184 185 186 187 188 189 190 191 0.192 193 194/;

my $MaxAgc0 = "1.15503129132678e-005";           # MaxAgc0 is a constant
my @Attn; 
my @powers;

for ( my $i = 0; $i < $#in; $i += 14  ) {
	for ( my $j = 1; $j <= $in[$i]; $j++ ){       # $j is *WHAT ?*
		my $num = ( $in[$i+12]*$MaxAgc0  );
		push @Attn, $num / $in[$i + 10];
    }
}

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

say "\@Attn next" . "-" x20;
print Dumper @Attn;
say "\@powers next" . "~" x20;
print Dumper @powers;