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