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