Select Code to Download

use strict;
use warnings;

...
my @megaMotifSorted =
    sort { $a->[1] <=> $b->[1] || $a->[3] <=> $b->[3] }
    @megaMotif;