Select Code to Download

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

Bareword "my_sort" not allowed while "strict subs" in use