my @array;
...
my $key_count = keys %{$array[-1]};