#!/usr/bin/env perl
use utf8;
use Utils;
use strict;
use warnings;

MAIN:
{
	my $planetDiameters = {
		"Mercury" => 4879,
		"Venus" => 12103,
		"Earth" => 12756,
		"Mars" => 6794,
		"Jupiter" => 142985,
		"Saturn" => 120534,
		"Uranus" => 51115,
		"Neptune" => 49534,
		"Pluto" => 2374,
		"Ceres" => 946,
		"Eris" => 2326,
		"Makemake" => 1430
	};

	foreach my $planet (keys(%$planetDiameters)) {
		print $planet, " has a diameter of ", $planetDiameters->{$planet}, " km\n";
	}
}