my $ossFingers = $obj->{sectors}->{$sector}->{numFingers}; for(my $j=0;$j<$ossFingers;$j++) { $currentSectorPower=$currentSectorPower + $obj->{sectors}->{$sector}->{$j}->{c2i}; $myc2i=$obj->{sectors}->{$sector}->{$j}->{c2i}; #print "Fingers= $myc2i\n"; push @part, $myc2i; } ## Append @part which contains c2i's with @hist, zero pad the rest if fingers less than 8. push @hist, @part[0..$Fngs]; if ($ossFingers <= 8) { my $count = 8 - $ossFingers; }