use strict;
use warnings;

my %dets = (
   name => q{fred},
   age  => 33);

while (my ($key, $value) = each %dets)
{
    # Do something with key and value here
}