my $p = pack('L*', @$pa);