my @factors = (1, 256, 65536, ...);
foreach my $a (@array) {
   $result += $a * $factors[$count++];
}