Select Code to Download

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