Select Code to Download

my $timestamp = '03-21-2021';

my ($month, $day, $year) = split/\-/, $timestamp;

my $sortkey = $day + ($month * 100) + $year * 10000;