#!/usr/bin/perl

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

my $data  = [
  { acc => 1111, Color => "green", Date => "08-06-2022", Step => "Platform" },
  { acc => 1111, Color => "black", Date => "01-05-2019", Step => "Platform" },
  { acc => 1111, Color => "reddish", Date => "03-21-2021", Step => "Platform" },
  { acc => 1111, Color => "blue", Date => "10-11-2020", Step => "Platform" },
  { acc => 1111, Color => "white", Date => "08-06-2022", Step => "Platform" },
  { acc => 1111, Color => "red", Date => "03-21-2021", Step => "Platform" },
  ];

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

use Data::Dump 'dd'; dd @mostrecent;