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

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

my %map = ();
print "$map\n";