print $array[0]->{name}, "\n";