Help for this page
#!/usr/bin/perl ... } 1;
my %hash ; tie(%hash, 'TieHash' , $this) ; ... ## In the place of: ## *$this = {A => 10 , B => 20 , C => 30} ;
$obj->{key} ; $obj->[0] ; print "Scalar: $obj" ;