#!/usr/bin/perl
my ($i, @hasharray, $x);
# create an array of hashnames (hash0..hash9)
for ($i=0; $i<10; $i++)
{
	push @hasharray, "hash$i";
}
$i = 10;
foreach (@hasharray)
{
	$x = $_;
	#assign key "key" and value "value$i" to %hashx
	$$x{key} = "value$i"; 
	$i++;
}

print "$hash7{key}\n"; #would print "value17"