Hi, I've already tried this - it doesn't work in the way I thought/wanted it to:

    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
[download]

Using the object returned from tie uses the blessed reference not the tie, which means you can't use the [] syntax when object are created on the fly by overloading. For example:

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