#!/usr/bin/perl
use warnings;
use strict;

{   package Array::Stretch;
    use Tie::Array;

    sub TIEARRAY { bless \ my $o, shift }

    our $AUTOLOAD;
    sub AUTOLOAD {
        warn "** $AUTOLOAD: @_";
    }
}

tie my @array, 'Array::Stretch';
@array = qw(a b c);
$array[-1] = 'A';