my(@arr);
{
	my %var;
	$var{"love"}="Anthing goes";
	$arr[0]=\%var;
}
print $$arr[0]{"love"};