試していませんが以下のようにするとどうでしょうか？
1. 「'ログイン',$time1,」を「'ログイン' => $ps eq $admpas || index($sp, '-ND-') != -1 ? 0 : $lasttm,」に変更。
　　　　※ 比較用の値として$lasttmまたは0を指定する処理です。
　　　　※ キーと値の区切りがカンマだとハッシュであることが認識しづらいので「=>」にしましたが他と合わせるのでしたらカンマでもOKです。
2. 「 && $Fm{'order'} ne 'ログイン'」を削除。
　　　　※ 降順に並べるために「({$b <=> $a}」のあるsortに処理が行くように、です。
3. 「if($Fm{'order'} eq "ログイン"){〜}」を表示する箇所の直前付近に移動して内容を変更する。
　　　　※ $lasttmの表示文字列作成を表示の直前に行う、ということです。

▼関連発言
│
└◆1838:削除順リストを、ログインした順にする方法 [YOUME] 05/08 12:03
　└◆1839:Re:削除順リストを、ログインした順にする方法 [moon] 05/08 20:30
　　└◆1840:Re[2]:削除順リストを、ログインした順にする方法.. [YOUME] 05/11 09:13<-last