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

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

my $date1 = "11:56:00, 09/17/2022";
my $date2 = "14:31:00, 09/16/2022";
my $date3 = "11:20:00, 09/13/2022";

my $t = localtime;
print "Current time: \n", $t, $/,$/;

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

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

foreach my $dt (@ds){
	print $dt, $/;
	if($dt < $t){
		print " in the past...\n";
	}
	else{
		print " in the future...\n";
	}
}