for($i = @time;$i != 1;$i--){
　　for($j = 0;$j < (@time - 1);$j++){
　　　　if($time[$j] < $time[($j + 1)]){
　　　　　　$tmp = $time[$j];
　　　　　　$time[$j] = $time[($j + 1)];
　　　　　　$time[($j + 1)] = $tmp;

　　　　　　$tmp = $list[$j];
　　　　　　$list[$j] = $list[($j + 1)];
　　　　　　$list[($j + 1)] = $tmp;
　　　　}
　　}
}
結局こんなのを書いて逃げてしまう漏れは駄目ぽです。
>>304さん、こちらでとりあえずお茶濁しときます。
perlらしい書き方も勉強せねばならんです。イキナリ読めなくなる。