#Initialization my @in= (INSERT VERY LARGE ARRAY HERE); my $MaxAgc0 = "1.15503129132678e-005"; # MaxAgc0 is a constant #Interpolation if (@in) { for (my $i = 0; $i < @in; $i += 14) { for(my $j=1;$j<=$in[$i];$j++){ #$j is the actual no. of sectors. 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); } } else { # @in is empty print "\n No data to map for Panda machine. Check if input logfile is empty"; kill; }