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

sub convertKMtoMiles {
	my ($x) = @_;
	my $y = {};
	foreach my $planet (keys(%$x)) {
		$y->{$planet} = int($x->{$planet} * 0.621371 + 0.5);
	}
	return $y;
}

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

	my $planetDiametersInMiles = convertKMtoMiles($planetDiametersInKM);
	foreach my $planet (keys(%$planetDiametersInMiles)) {
		print $planet, " has a diameter of ", $planetDiametersInMiles->{$planet}, " miles\n";
	}
}