if you add use strict; use warnings; i bet you get enough clues to figure it out yourself!

hint %$key