sub sortdatum {
if($a < $b) { return -1; }
elsif($a == $b) { return 0; }
else { return 1; }
}

@datum = sort(sortdatum @datum);\n\n

<!--EDIT|devil_86|1085485089-->