Select Code to Download

for my $hash (@data) {
    for (keys %$hash) { ... }

my @keys = keys %{$data[0]}; # or [1], or [2], ...