Select Code to Download

#!/usr/bin/perl

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

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

{ acc => 1111, Color => "green", Date => "08-06-2022", Step => "Platfo
+rm" }