in reply to use array for hash-keys without loop
Look here in the perlfaq for various one-liners (lines 1-3) that do the job.