Select Code to Download

my @keys = ...order you want the named keys in...

...
  print join(",", $h->{first}, $h->{date},
            map { $_." ".$h->{$_} } @keys), "\n";
}