for my $key (keys %{$a[0]})
according to your above presented logic