@ItemList = (); #this would be filled with some data already, and passed in as a reference.
$ItemListRef = \@ItemList;


$LCSStatWd1 = 524288; #this would normally come from the file
$LCSStatWd1Bits = unpack("B32",pack("N",$LCSStatWd1)); #creating the bit string

print "$LCSStatWd1Bits\n";


#Discretes
$Offset = 0;
$LidarPwrState = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$LidarPwrStateToggle = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$LCSMode = ReadBits($LCSStatWd1Bits,\$Offset,6,$ItemListRef);
$LidarCondition = ReadBits($LCSStatWd1Bits,\$Offset,3,$ItemListRef);
$NewCentAvail = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$ObjOutOfScnWin = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$ReAcqFailed = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$LaserState = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$GrCommEnable = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$LidarMode = ReadBits($LCSStatWd1Bits,\$Offset,2,$ItemListRef);
$LCSSubMode = ReadBits($LCSStatWd1Bits,\$Offset,3,$ItemListRef);
$GNCpredit = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$FOVedgemAz = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$FOVedgepAz = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$FOVedgemEl = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$FOVedgepEl = ReadBits($LCSStatWd1Bits,\$Offset,1,$ItemListRef);
$Spare2 = ReadBits($LCSStatWd1Bits,\$Offset,6,$ItemListRef);


sub ReadBits
{
	my $BitStringIn = @_[0];
	my $OffsetRef	= @_[1];
	my $Length		= @_[2];
	my $ItemListRef	= @_[3];
	my $BitStringOut = 0;

	$BitStringOut = substr($BitStringIn,$$OffsetRef,$Length);
	$$OffsetRef += $Length;

	$NumZeros = 32-$Length;
	$Zeros = unpack("B$NumZeros",pack("N",0));
	$BitStringOut = $Zeros.$BitStringOut;
	$NumOut = unpack("N",pack("B32",$BitStringOut));
	@$ItemListRef = (@$ItemListRef,$NumOut, "\t");
	
	print "\n$NumOut";
	
	return($NumOut);
}