my ( $value, $hashref ) = @_;
foreach my $key ( keys %$hashref )
{
  print "$key = $$hashref{'$key'}\n";
}