my @array = (1, 2, 3, 4);
my $val = 0;
for (my $i = 0; $i < 4; $i++) {
    $val |= $array[$i]<<(8*$i);
}
printf "%d\n", $val;