Select Code to Download

my @new_array = sort { $b->[2] <=> $a->[2] } map { [ split /\//, $_, 3
+ ] } @submenu;