my @wanted = qw(code name date account street);
my @array;

foreach my $data (@{ $sqldata }) {
    push @array, { map {$_ => $data->{$_}} @wanted };
}
print Dumper \@array;