Select Code to Download

#!/usr/bin/perl
use strict;
...
     $a->[1] <=> $b->[1]
  || $b->[2] <=> $a->[2]
}

SEQ1 145 244
SEQ1 200 300
...
SEQ2 99 140
SEQ2 100 150
SEQ2 120 230