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

my $dateformat = "%H:%M:%S, %m/%d/%Y";

my $date1 = "11:56:41, 09/14/2022";
my $date2 = "11:22:41, 09/16/2022";
my $date3 = "11:20:41, 09/13/2022";

$date1 = Time::Piece->strptime($date1, $dateformat);
$date2 = Time::Piece->strptime($date2, $dateformat);
$date3 = Time::Piece->strptime($date3, $dateformat);


my(@ds) = ($date1,$date2,$date3);

my(@sorted) = sort(@ds);

foreach my $dt (@sorted){
	print $dt, $/;
}