#!/usr/local/bin/perl
use strict;
use warnings;

my %map =('red', 0xff0000, 'green', 0x00ff00, 'blue', 0x0000ff);
print "$map{'green'}\n";

my %map = ();
$map{red} = 0xff0000;
$map{green} = 0x00ff00;
$map{blue} = 0x0000ff;
print "$map{blue}\n";