Select Code to Download

my @wanted = qw(code name date account street);
my @array;
...
    push @array, { map {$_ => $data->{$_}} @wanted };
}
print Dumper \@array;