Select Code to Download

my $VALUE = $MyMatrix[$a][$b];

my $VALUE = (vec($MyMatrix, ($a & 7), 8) >> $b) & 1;

#!/usr/bin/perl -w

...
  return 0;
}