use strict;
use warnings;

my @megaMotif = (
    [ "AGCT", "0", "370", "1" ],
    [ "AGGT", "3", "52",  "1" ],
    [ "TGAA", "2", "233", "0" ],
    [ "AGAG", "0", "32",  "0" ]
);

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