Help for this page
my @new_array = sort { $b->[2] <=> $a->[2] } map { [ split /\//, $_, 3 + ] } @submenu;
www.com | www.net | www.org
No recent polls found