#!/usr/bin/perl
$a[1]{"blue"}=1;
$a[1]{"red"}=2;
$a[2]{"blue"}=3;
$a[2]{"red"}=4;
foreach $hash (@a)
	{
	foreach $word (keys %$hash)
		{
	print $firstval." ".$word." ".$hash->{$word}."\n";
		}
	}

I'd like to see 
1 blue 1
1 red 2
2 blue 3
2 red 4