Help for this page

Select Code to Download

Select or download this

use 5.026;
use warnings;
...

say qq{sample\t}, join qq{\t}, @order;
say qq{file1\t},  join qq{\t}, @base2bin{ @order };

Select or download this

sample  1       2       3       4       5       6       7       8     
+  9       10
file1   0       0       1       0       0       0       1       0     
+  0       0