#!/usr/bin/env perl

use strict;
use warnings;

my %capital = (
    "USA"    => "Washington, D.C.",
    "Japan"  => "Tokyo",
    "Taiwan" => "Taipei",
);

print "The capital of Japan is $capital{'Japan'}\n";