sub writeInt
{
  my $array=shift;
  my $pos=shift;
  my $value=shift;
  @array[$pos..$pos+3]=unpack('C*',pack('N',$val1));
}