Note that max_by() can also return multiple max's if it is used in list context.

#!/usr/bin/perl

use strict;
use warnings;
use List::AllUtils qw( max_by );

my $data  = [
  { acc => 1111, Color => "green", Date => "08-06-2022", Step => "Plat
+form" },
  { acc => 1111, Color => "black", Date => "01-05-2019", Step => "Plat
+form" },
  { acc => 1111, Color => "reddish", Date => "03-21-2021", Step => "Pl
+atform" },
  { acc => 1111, Color => "blue", Date => "10-11-2020", Step => "Platf
+orm" },
  { acc => 1111, Color => "white", Date => "08-06-2022", Step => "Plat
+form" },
  { acc => 1111, Color => "red", Date => "03-21-2021", Step => "Platfo
+rm" },
  ];

my @mostrecent = max_by {join '', (split /-/, $_->{Date})[2,0,1] } @$d
+ata;

use Data::Dump 'dd'; dd @mostrecent;
[download]

Outputs:

(
  { acc => 1111, Color => "green", Date => "08-06-2022", Step => "Plat
+form" },
  { acc => 1111, Color => "white", Date => "08-06-2022", Step => "Plat
+form" },
)
[download]