#!/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";