# Use:                                     ## n - number of 64bit packed numbers in string
# my @Numbers = UnPack( n, $stringpack );  ## string input, array output

  my $pack = pack("N N", 0, 99 );
  my $Numbers = UnPack( 1, $pack );
  say $Numbers;
  ( $Numbers ) = UnPack( 1, $pack );
  say $Numbers;
  my @Numbers = UnPack( 1, $pack );
  say $Numbers[0];
  ( @Numbers ) = UnPack( 1, $pack );
  say $Numbers[0];

 __END__

 result:
  1
  99
  99
  99