Select Code to Download

#!/usr/bin/perl
use strict;
...
0/10/111/145
0/10/111
0/10

#@data = map { join '/', @$_ } sort my_sort @data;
@data = map { join '/', @$_ } sort { my_sort() } @data;