$obj->{key} ;
$obj->[0] ;
print "Scalar: $obj" ;