Select Code to Download

my %newhash;

...
for my $k (sort keys %newhash){
    print "$k  =>  $newhash{$k}\n";
}

my %newhash = map {{ $_->{key} } = >$_->{value} } @data_list;