chdir("$contentdir") or die "Couldn't chdir ..., ";
opendir THISDIR, '.' or die "Couldn't opendir ..., ";
my @submenu = readdir THISDIR or die "Nothing to readdir, ";
close THISDIR; # really need a die here too :)

##</code><code>##

($sub1, $sub2, $sub3) = split (/\_/, $_,3);

##</code><code>##

$sub3 = sort { $b <=> $a } $sub3;