#!/usr/bin/env perl

#use 5.032;
use strict;
use warnings;

use Data::Dumper;

my @dates = qw( 02-03-2003 03-01-2022 01-15-2022 01-15-2023 01-15-2001 11-15-2023);
#my @dates = qw( 2003-02-03 2015-03-01 2032-01-15 2023-01-15 2001-01-15 2028-11-15);

print "\n\n ".Dumper \@dates;

my @sorted = sort { my $new_a = join( q{-}, (split(/-/,$a))[2,0,1] );
                    my $new_b = join( q{-}, (split(/-/,$b))[2,0,1] );
                    $new_b cmp $new_a } @dates;

print "\n\n $sorted[0]\n\n";