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

my %map =('red', 0xff0000, 'green', 0x00ff00, 'blue', 0x0000ff, 'yellow', 0x0000ff);
while (my ($key, $values) = each %map) {
   print "$key : $values\n";
};

my $x = 1;
my $y = 2;
my $z = 3;
my @hash{ $x, $y, $z };

print @hash;