my $clean = [ map {{%$_}} @$data ]; print Dumper \$clean;