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