Select Code to Download

#! perl
use strict;
...
my   @res;
push @res, { $_->{'date'} => $_->{'names'} } for @{ $temp->{'groups'} 
+};
print Dumper(\@res);

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