Select Code to Download

    package Tie::NewStdArray;
    use Tie::Array;
...
    
    $somearray[0]=12; #intercepted by tie
    $object[0]=12;    #uses the blessed array

$three=$two+$one;
print $three[12];