my @keys = keys %hash;

##</code><code>##

perldoc -q keys