Select Code to Download

my @list;
while (<>) {
...
  }
  push(@list, \%hash);
}

my %seen;
for (@list) { for (keys %$_) { $seen{$_}++ } };
delete $seen{first};
delete $seen{date};
my @allkeys = ('first', 'date', sort keys %seen);