Select Code to Download

for my $key ("Name", grep { $_ ne "Name" } keys %{$hashes[0]}) {
 print ((join "\t", $key, map { $_->{$key} } @hashes),"\n");
}