#!/usr/bin/perl

%myhash;

$myhash{"Fred"} = "husband";
$myhash{"Wilma"} = "wife";
$myhash{"Pebbles"} = "baby girl";
$myhash{"Bam-Bam"} = "baby boy";
$myhash{"Dino"} = "pet";

foreach $key (keys %myhash) {
	$value = $myhash{$key};
	print "$key = $value\n";
}