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