my @array = (1, 2, 3, 4);
my $val = unpack 'L', pack 'C4', @array;
printf "%d\n", $val;