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