package Tie::NewStdArray;
    use Tie::Array;

    @ISA = ('Tie::StdArray');

    sub STORE { print 'in store'; }
    sub FETCH { print 'in fetch'; }
    # all methods provided by default

    package main;
    my @somearray;
    my $object = tie @somearray,Tie::NewStdArray;
    
    $somearray[0]=12; #intercepted by tie
    $object[0]=12;    #uses the blessed array

##</code><code>##

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