my @array = keys %hash;
my $aref  = [ keys %hash ];