如何在Perl中按降序排序dd:mm:yyyy hh24:mi:ss格式的时间戳？

cpan install Time::Piece
cpan install Time::Seconds

use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

# 示例时间戳列表
my @timestamps = (
    '2022-01-01 12:34:56',
    '2021-12-31 23:59:59',
    '2022-01-01 00:00:00',
);

# 将时间戳转换为Time::Piece对象并按降序排序
my @sorted_timestamps = sort { $b->strftime('%Y-%m-%d %H:%M:%S') cmp $a->strftime('%Y-%m-%d %H:%M:%S') }
    map { Time::Piece->strptime($_, '%Y-%m-%d %H:%M:%S') } @timestamps;

# 输出排序后的时间戳
foreach my $timestamp (@sorted_timestamps) {
    print $timestamp->strftime('%Y-%m-%d %H:%M:%S'), "\n";
}