Select Code to Download

#!/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" ;