Select Code to Download

use strict;
use warnings;
...
sub numeric {
    $a <=> $b;
}

   id1\id2        11        12        13        14        15
         1         1         0         0         0         0
...
         3         0         0         1         0         0
         4         0         0         0         1         0
         5         0         0         0         0         1

use strict;
use warnings;
...
sub numeric {
    $a <=> $b;
}