#!/usr/bin/perl
# File: useBitSet

use BitSet;

sub printArray {
  my ($bits) = shift(@_);
  for ($i=0; $i <=31; $i++) {
     print $$bits[$i];
  }
  print "\n";
}

tie (@bits,"BitSet",32);

print '@bits tied   : ';
printArray(\@bits); # Note that a reference to @bits is required here
$bits[0] = 1;
print '$bits[0]  = 1: ';
printArray(\@bits);
$bits[2] = 1;
print '$bits[2]  = 1: ';
printArray(\@bits);
$bits[16] = 1;
print '$bits[16] = 1: ';
printArray(\@bits);
$bits[31] = 1;
print '$bits[31] = 1: ';
printArray(\@bits);

