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