Select Code to Download

my $timestamp = {
    my( $year, $month, $date ) = ( localtime )[ 5, 4, 3 ];
...
    $month++;
    join '-', $year, $month, $date;
};

my @newLoop = map +{
    PARTNAME => $_,
    SELECTED => $_ eq $row->{ title },
}, @$parts;