Select Code to Download

my @mapped_prizes = map +{ $month{(split(/-| /,$_->{'Timestamp'}))[1]}
+ => $_ },  @prizes;

sub month_from_datetime {
    my ( $datetime ) = @_;
...
    my $month_num = month_from_datetime $_->{'Timestamp'};
    $month_name{ $month_num } => $_;
}, @prizes;