my %flintstones = (
    Fred   => 40,
    Wilma  => 38,
    Barney => 42,
    Betty  => 41,
);

for my $name ( keys %flintstones ) {
    print "$name is $flintstones{ $name }\n";
}