use Foo::Bar;
tie my @array, 'Foo::Bar';
$array[0] = 12; # here Foo::Bar::STORE($self,$index,$value) is called