Select Code to Download

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

print Dumper (\@mapped_prizes);

$VAR1 = [
          [
...
            }
          ]
        ];