foreach $name (qw(George Bill Pocahantas Godzilla)){
     $stats{$name} = int rand(10); # give the name a random value
}

while(my ($key,$value) = each %stats){
    print "$key is $value years old\n";
}