Select Code to Download

#!/usr/bin/perl

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

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

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