Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
for (@sorted_array) {
    print join("\t", @$_), "\n";
}

1    7    1
3    4    3
2    7    4
...
5    7    25
5    6    28
6    7    36