for (sort { $b->[1] <=> $a->[1] } @data) {
    print join( ' : ', @$_ ), $/;
}