my @times = ... # list of times @times = sort {$a <=> $b} @times;